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1. INTRODUCTION 

CBUG05 is a debug monitor program written for the 
MC146805E2 Microprocessor Unit and contained in the 
MCM65516 2K x 8 CMOS ROM. CBUG05 allows for rapid 
development and evaluation of hardware and M6805 Family 
type software, using memory and register examine/change 
commands as well as breakpoint and single instruction trace 
commands. CBUG05 also includes software to set and 
display time, using an optional MCI 468 18 Real-Time Clock 
(RTC), and routines to punch and load an optional cassette 
interface. Figure 1 shows a minimum system which only re- 
quires the MPU, ROM, keypad inputs and display output in- 
terfaces. Port A of the MC146805E2 MPU is required for the 
I/O; however, Port B and all other MC146805E2 MPU 
features remain available to the user. A possible expanded 
system is shown in Figure 2. The memory map is shown in 
Figure 3. Locations $1700-$173F are available to the user if 
the optional MC146818 RTC is not used. 



FEATURES: 

* MC146805E2 Eight-Bit CMOS MPU 

• Expandable Multipled Address/Data Bus 

• Eight-Bit I/O Port 

• Eight-Bit Timer with Prescaler 

• Maskable External Interrupt 

• 16 Levels of Subroutine Nesting 

• Minimum of 38 Bytes of Unused Internal RAM 

* MCM65516 2Kx8 CMOS with CBUG05 

• Memory and Register Examine/Change 

• Breakpoints and Single Instruction Trace 

• Branch Offset Calculation 

• Set/Display Current Time (w/optional MCI 468 18 

Real-Time Clock) 

• Punch/Load/Verify Cassette Tape (w/optional 

cassette tape interface) 

• Stop Command for Low-power Software Standby 

• Software Alterable Interrupt Vectors 
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Figure 1. Minimum CBUG05 System 
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Figure 2. Expanded C BUG 05 System 
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Figure 3. Address Map 



2. CBUG05 COMMAND DESCRIPTION 

Commands are entered in one of two ways: 
(1) If the command requires no additional user input, then 
only the command key need be depressed; e.g., TR 
(CBUG05 will execute one instruction), and (2) If the com- 
mand allows additional user input then the ENT key is used 
to enter the users input. 

ESC will allow exit from all commands except STOP, V, 
L, & P once the ending address is entered. 



1) 


RS 


— Reset MC146805E2 


2) 


P 


— Punch cassette tape 


3) 


L 


— Load cassette tape 


4) 


V 


— Verify cassette tape against memory 


5) 


ST 


— Set current time 


6) 


DT 


— Display current time 


7) 


OFF 


— Calculate branch offset 


8) 


BP 


— Set/display breakpoints 


9) 


BCL 


— Disable one or all breakpoints 


10) 


TR 


— Execute one instruction 


11) 


GO 


— Begin program execution 



12) PC — Display user program counter 

13) AR — Examine/change user accumulator 

14) XR — Examine/change user index register 

15) CC — Examine/change user condition code register 

16) SP — Display user stack pointer 

17) M — Examine/change memory contents 

18) STOP — Put the system into a low power standby 

mode 

RS — 1) Automatic on power-up 
2) Press RS to: 

a) Return from STOP 

b) Return to monitor when program con- 
trol is lost 

STOP —1) MC146805E2 oscillator is halted reducing 
current requirements 
2) . Command sequence: 

a) Press STOP 

b) Display will be cleared 

P — 1) Place recorder into the record mode 

2) Press P 

3) 'bA' will be displayed 
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-1) 

2) 



4) Enter beginning address BP 

5) Press ENT 

6) 'EA' will be displayed 

7) Enter ending address 

8) Press ENT 

9) Prompt ' = ' will be returned when punch is 
finished 

L — 1) Command sequence 

a) Press L 

b) Display will be cleared 

c) Depress PLAY on recorder 

2) Valid loads will be followed by the prompt BCL — 1) 

3) Checksum errors are indicated by 'Err' 

4) Bad memory stores are indicated by display- 
ing the address of the bad memory. 

V — 1) Command sequence 2) 

a) Press V 

b) Display will be cleared 

c) Depress PLAY on recorder 

2) If the compare is successful, the prompt ' = ' 
is returned 

3) Checksum errors are indicated by 'Err' 

4) If the compare is unsuccessful, the address of TR 
the memory location is displayed 

ST — 1) MC146818 is used 
2) Command sequence 

a) Press ST GO 

b) '0000 A' will be displayed 

c) Enter time in a 12 hour format 

d) Press P for PM (AM is the default) 

e) Press ENT 

f) Prompt ' = ' will be returned 
DT — 1) Press DT 

2) current time will be displayed if MC 1468 18 
has been initialized 
OFF — 1) Beginning and ending addresses point to the 
instruction opcode addresses 

2) The opcode for the branch instruction must 
exist at the beginning address so the monitor 
can determine whether to do a bit branch or 
a conditional branch M 

3) Command sequence 

a) Press OFF 

b) 'bA' will be displayed 

c) Enter beginning address 

d) Press ENT 

e) 'EA' will be displayed 

f) Enter ending address 

g) Press ENT 

4) If valid: 

a) 'USE xx' will be displayed. 

b) xx will be loaded into beginning ad- 
dress +2 for bit branches and ad- PC 
dress + 1 for conditional branches. 

5) If not valid: 

a) Offset calculation result is displayed in 
2's complement and 'Or' (out of range) 
is displayed 

b) No change is made to instruction at 
the beginning address. 



-1) 
2) 

3) 
-1) 



2) 



3) 



-1) 
2) 
3) 
4) 
5) 

6) 
7) 



-1) 

2) 



Three breakpoints are available: 0, 1, 2 
Command sequence 

a) Press BP 

b) Breakpoint will be displayed 

c) 'bOFF 0' wil be displayed if break- 
point is disabled 

d) Enter new breakpoint address if 
desired 

e) Press ENT 

Next breakpoint will be displayed and 
open for entry 

Disable all breakpoints 

a) Press BCL 

b) 'bCl' will be displayed 

c) Press ENT 

d) Prompt ' = ' will be returned 
Disable only one breakpoint 

a) Press BCL 

b) 'bCl' will be displayed 

c) Enter the number of the breakpoint to 
be disabled 

d) Press ENT 

e) Prompt ' = ' will be returned 
Press TR 

The instruction located at the user PC will be 
executed 

New user PC will be displayed 
If breakpoints are enabled, the instruction at 
the breakpoint address will be executed and 
the PC of the next instruction to be executed 
will be displayed 

Continue execution with the instruction at 
the user PC 

a) Press GO 

b) Current user PC is displayed 

c) Press ENT 

Begin execution at new address 

a) Press GO 

b) Current user PC is displayed 

c) Enter the new PC address 

d) Press ENT 
Press M 

Last address will be displayed 
Enter new address if desired 
Press ENT 

Address and contents of the address will be 
displayed in format 'aaaa xx' 
Enter new contents if desired 
Save (use one) 

a) Press ENT (next address and contents 
will be displayed) 

b) Press M (previous address and con- 
tents will be displayed) 

Not alterable 
Command sequence 

a) Press PC 

b) Current user PC displayed in format 
'aaaa PC 



AR — 1) Alterable 

2) Command sequence 

a) Press AR 

b) Current user accumulator contents dis- 
played in format 'ACCA xx' 

c) Enter new data if desired 

d) Press ENT 

e) Prompt ' = ' will be returned 
XR — 1) Alterable 

2) Command sequence 

a) press XR 

b) Current user index register contents 
displayed in format 'Idr xx' 

c) Enter new data if desired 

d) Press ENT 

e) Prompt ' = ' will be returned 

CC — 1) Alterable 

2) Command sequence 

a) Press CC 

b) Current user condition code will be dis- 
played in format 

'COdE xx' 

c) Enter new contents if desired 

d) Press ENT 

e) Prompt ' = ' will be returned 
SP — 1) Not alterable 

2) Command sequence 

a) Press SP 

b) Current user stack pointer will be dis- 
played in format 'aaaa SP' 



3. INTERRUPT VECTORS 

At reset, CBUG05 sets up an extended JUMP instruction 
pointing to a default CBUG05 interrupt service routine for 
each of the three interrupt types. The vectors, of the three in- 
terrupt types, point to one of the three JUMP instructions. 
Since the JMP instructions are located in RAM, the use may 
alter the two-byte extended address within any of the JMP 
instructions. The location of the two-byte extended address 
for each interrupt type is listed in Table 1 . 

Table 1. Alterable Vector Locations 



INTERRUPT TYPE 

EXTERNAL 
TIMER 

TIMER (FROM WAIT) 



ADDR 

$41 -$42 
$44-$45 
$47-$48 



4. MC145000 CMOS MULTIPLEXED LCD DRIVER 

The MC 145000 LCD Driver is designed to drive LCDs in a 
multiplexed -by-four configuration. It can drive up to 48 
LCD segments or six seven-segment plus decimal point 
characters. Data for each character is translated into a for- 
mat that is clocked serially from the MC146805E2 (MPU) to 
the MC 145000 LCD Driver. The MC 145000 LCD Driver 
continuously generates the multiplexed display signals, from 
the internally stored serial data, without further re- 
quirements from the MPU. 



The recommended display is a General Electric 
LXD69D7R09; an 8-digit, 7-segment multiplexed LCD with 
decimal point. The required connections to the MC 145000 
LCD Driver are shown in Figure 4. 
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Figure 4. Liquid Crystal Display (LCD) Connections 

Each segment of a seven-segment plus decimal point 
character is represented by one bit of an 8-bit byte. Figure 5 
shows the relationship between a character segment and the 
bit number of the display byte (bit 7 is MSB and bit is LSB). 
A logical "1" in any bit will activate its corresponding seg- 
ment. Table 2 lists the hexadecimal code of some common 
seven-segment characters in display format. For example, the 
digit 5 is represented by $B5 (101 10101) which would activate 



5 



segments 0, 2, 4, 5, and 7. The decimal point is displayed by 
setting bit 3 of the display byte to a logical "1" (effectively 
adding eight to the display byte). Data in BCD or binary for- 
mat is translated by CBUG05, into the display format, using 
a lookup table. CBUG05 then left-shifts the character to the 
MC145000 via port A of the MC146805E2. 

Table 2. Display Format Conversions 

Displayed Display Format 
Digit Hex Code 
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NOTE: A Decimal Point can be added to all but the right-most display 
digit by setting b3 [segment (3)1 to a 1. 




Figure 5. Display Digit Format 



Several display routines are available for the user. Figure 6 
describes the address, function, and use of these routines. All 
routines are called using a jump-to-subroutine (JSR) instruc- 
tion. Most display outputs are initiated by filling a display 
table with all six characters in the display format to be 
displayed, then calling a routine (DISTAB) to display the en- 
tire table. In other words, the whole display is rewritten every 
time any character change is made. The display table is called 
DTABL (locations $49-$4E) and occupies six consecutive 
bytes where DTABL (location $49) is the left most digit to be 
displayed. 

5. KEYPAD INPUT 

CBUG05 requires a 4x6 keypad such as is shown 
schematically in Figure 7. The six column lines are derived 
from a three-bit output from port A bits 4-6 driving a 3-to-8 
decoder. By using this method port B is saved for the user. 
Figure 7 shows the required layout of the 4 x 6 keypad and 
3-to-8 decoder. The keypad is continuously scanned for in- 
put. If an input is received, a 3075 MPU cycle debounce in- 
sures against spurious input. The required debounce time 
places a lower limit on the MPU clock frequency. At a 1 
MHz bus speed (5 MHz oscillator input), the debounce time 
is about 3 ms. With a 10 kHz bus speed (50 kHz time base in- 
put), the debounce time is about 0.3 seconds. Debounce 
times of approximately 60 milliseconds or more require the 
keys be held down a longer time than an operator is normally 
accustomed. 

Five routines are listed in Figure 8 of which two (COL- 
UMN and DEBOUNC) are branch routines and one is a 
look-up table (STABL). One of the other two routines, 
KEYSCN, checks for a keyboard input and, if valid, returns 
it to the accumulator in a column-row format. This format 
can then be converted to a hexadecimal number which cor- 
responds to the one key that was pressed (see STABL routine 
and Table 3). Note that hexadecimal numbers through F 
correspond to the keypad keys through F. The last routine 
of Figure 8, CHARIN, checks for a character and returns a 
hexadecimal number to the accumulator. 

6. CASSETTE TAPE OPTION 

The cassette tape option is included to allow for user pro- 
gram storage. Programs are stored in a modified bi-phase 
format (see Figure 9). The storage format used defines a zero 
as more than 300 MPU cycles between transitions and less 
than 300 MPU cycles between transitions. Data is punched 
with a start bit of one, eight bits of data and a zero stop bit. 
Tapes are punched with 16K zeros as a leader followed by a 
BOT and the ending and beginning addresses. The program 
is then punched followed by the checksum. Tapes are loaded 
after 256 consecutive zeros are read. The BOT then syn- 
chronizes the loading program. The ending and beginning 
addresses are loaded and data read and stored accordingly. 
Finally, the checksum is read and compared to the new com- 
puted checksum. 

Baud rates are determined by the MPU cycle time. The 
software is set up to provide a default baud rate of 2400 baud 
if a one microsecond cycle time is used. Cycle times greater 
than one microsecond will decrease the baud rate propor- 
tionally. 
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1DF5 AE 05 
1DF7 6F 49 
1DF9 5A 
1DFA 2A FB 
1DFC 81 



1E07 AD EC 
1E09 AD F2 
1E0B 81 



**************************************** 

* * 

* CLEAR DISPLAY TABLE * 

* * 

* X REG DESTROYED * 

* * 
**************************************** 
* 
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* 

**************************************** 

* * 

* DISPLAY TABLE CONTENTS * 

* * 

* A,X REGISTERS DESTROYED * 

* * 
**************************************** 
* 

#5 

DTABL, X LOAD DISPLAY 
DISPLY TABLE INTO 
145000 

DISCHR 
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DISCHR LDA 
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DECX 
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RTS 

* 

**************************************** 

* * 

* BLANK DISPLAY * 

* * 

* A,X REGISTERS DESTROYED * 

* * 

**************************************** 
* 

CLRDIS BSR CLRTAB BLANK 

BSR DISTAB DISPLAY 
RTS 

* 

**************************************** 

* * 

* SHIFT ONE CHARACTER INTO * 

* DISPLAY * 
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**************************************** 
* 
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A 
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81 
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Figure 6. Display Routines 
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Table 3. Keypad Cross-Reference 
KEYPAD PORT-A HEXADECIMAL ($) 



CHARACTER 

(P.C.) 
F (AR) 
E (XR) 
D (CO 

1 

2 

3 -- 

C -- 

4 

5 (BP) 

6 (B.CL.) 
B (TR) 

7 

8 IDT.) 

9 (ST.) 
A (OFF) 

P 
L 
V 

ENT 

ESC 
G 
M 
SP 



DATA 

11 
12 
14 
18 

21 
22 
24 
28 

31 
32 
34 
38 

41 
42 
44 
48 

51 
52 
54 
58 

61 
62 
64 
68 



EQUIVALENT 


F 
E 

D 

1 

2 
3 
C 

4 

5 
6 

B 

7 
8 



17 
16 
15 
11 

10 
14 
13 
12 



Whatever baud rate is used, the cassette tape and recorder 
must have an upper frequency response 2-3 times the baud 
rate and a lower frequency response of 1/2 - 1/3 the baud 
rate to insure reliability. 

7. MC146818 REAL-TIME CLOCK (RTC) OPTION 

The RTC can be added to a system to provide time, data, 
periodic interrupt and many other user functions (see 
MC146818 ADI-856). The RTC time may be set and 
displayed using CBUG05 software; however, only the 
12-hour mode is available. The displayed time is updated 
once per second after polling the Update-In-Progress bit 
(UIP) for a zero. All MC146818 functions are available to the 
user. The CBUG05 software set and display time routines re- 
quire that a 4. 194304 MHz crystal be used; however, if power 
consumption is critical then either a 1 .04576 MHz or 32.678 
KHz oscillator input could be used. The user would be re- 
quired to set-up the divider chain in the RTC for the par- 
ticular time base used. 

8. INTERNAL AND EXTERNAL MEMORY SPACE 

The internal memory space is located in the first 128 bytes 
of memory and contains the timer registers, I/O port 
registers, and 112 bytes of RAM. External memory can be 
mapped at the same addresses as the internal memory space. 
An MPU write to internal memory space is duplicated exter- 
nally; however, an MPU read of internal locations will result 
in only the internal data being recognized. This allows the 
user to map large memories externally without requiring that 
accesses to internal memory locations be excluded from the 
external memory, thus, simplifying external address 
decoding. 
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**************************************** 



* 
* 
* 
* 
* 
* 
* 
* 
* 



KEYPAD SCAN 

X REGISTER DESTROYED 

A REGISTER CONTAINS VALUE 

CARRY SET IF VALID OUTPUT 



* 
* 
* 
* 
* 
* 
* 
* 
* 



**************************************** 
* 
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A REGISTER CONTAINS VALUE * 

* 
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**************************************** 
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Bl 


50 


A 




CMP 


W0RK1 


SAME KEY CLOSED? 


1E41 


26 


11 


1E54 




BNE 


COLRET 


NO GET OUT 


1E43 


99 








SEC 




SET FLAG FOR VALID 


1E44 


B6 


00 


A 


C0L1 


LDA 


PORTA 


KEY 


1E46 


A5 


0F 


A 




BIT 


#$0F 


RELEASED? 


1E48 


26 


FA 


1E44 




BNE 


C0L1 


NO TRY AGAIN 


1E4A 


AD 


09 


1E55 




BSR 


DBOUNC 


YES DEBOUNCE 


1E4C 


B6 


00 


A 




LDA 


PORTA 


STILL 


1E4E 


A5 


0F 


A 




BIT 


#$0F 


RELEASED? 


1E50 


26 


F2 


1E44 




BNE 


C0L1 


NO TRY AGAIN 


1E52 


B6 


50 


A 




LDA 


W0RK1 


RETURN CHAR IN A-REG 



Figure 8. KEYSCN, COLUMN, DEBOUNC, CHRIN, and STABL Routines 
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1E54 81 COLRET RTS YES GO HOME 

* 

**************************************** 



* * 

* PAUSE FOR 3075 CYCLES * 

* * 

* A REGISTER DESTROYED * 

* * 



**************************************** 
* 



1E55 


A6 


FF 


A 


DBOUNC 


LDA 


#$FF 


PAUSE 


1E57 


21 


FE 


1E57 


DLOOP 


BRN 


* 


256X12 


1E59 


21 


FE 


1E59 




BRN 


* 


CYCLES 


1E5B 


4A 








DECA 




OR AT 


1E5C 


26 


F9 


1E57 




BNE 


DLOOP 


LEAST 


1E5E 


81 








RTS 




3.0 MS 



* 



**************************************** 

* * 

* INPUT ONE CHARACTER * 



A REGISTER CONTAINS HEX VALUE 



* 
* 
* 



* 
* 
* 

* X REGISTER CONTAINS HEX VALUE * 

* * 

**************************************** 
* 







1E5F 


A 


CHRIN 


EQU 


* 




1E5F 


CD 


1E23 


A 




JSR 


KEYSCN 


GET KEY 


1E62 


24 


FB 


1E5F 




BCC 


CHRIN 


IF NOT VALID 


1E64 


5F 








CLRX 






1E65 


Dl 


1E6F 


A 


CHRIN1 


CMP 


STABL , X 


CONVERT 


1E68 


27 


03 


1E6D 




BEQ 


CHRIN2 


TO HEX 


1E6A 


5C 








INCX 






1E6B 


20 


F8 


1E65 




BRA 


CHRIN1 




1E6D 


9F 






CHRIN2 


TXA 




IF CANCEL 


1E6E 


81 








RTS 







Figure 8. KEYSCN, COLUMN, DEBOUNC, CHRIN, and STABL Routines (Cont'd) 
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* 

***: 
* 
* 
* 

* * 
**************************************** 
* 



:*********************************** 

* 

CONVERSION TABLE FOR KEYPAD * 
TO HEX NUMBER * 



1E6F 


11 


A STABL 


FCB 


$11 





1E70 


21 


A 


FCB 


$21 


1 


1E71 


22 


A 


FCB 


$22 


2 


1E72 


24 


A 


FCB 


$24 


3 


1E73 


31 


A 


FCB 


$31 


4 


1E74 


32 


A 


FCB 


$32 


5 


1E75 


34 


A 


FCB 


$34 


6 


1E76 


41 


A 


FCB 


$41 


7 


1E77 


42 


A 


FCB 


$42 


8 


1E78 


44 


A 


FCB 


$44 


9 


1E79 


48 


A 


FCB 


$48 


A 


1E7A 


38 


A 


FCB 


$38 


B 


1E7B 


28 


A 


FCB 


$28 


C 


1E7C 


18 


A 


FCB 


$18 


D 


1E7D 


14 


A 


FCB 


$14 


E 


1E7E 


12 


A 


FCB 


$12 


F 


1E7F 


61 


A 


FCB 


$61 


CANCEL COMMAND 


1E80 


58 


A 


FCB 


$58 


ENTER COMMAND 


1E81 


68 


A 


FCB 


$68 


STACK POINTER 


1E82 


64 


A 


FCB 


$64 


MEMORY 


1E83 


62 


A 


FCB 


$62 


GO 


1E84 


54 


A 


FCB 


$54 


VERIFY TAPE 


1E85 


52 


A 


FCB 


$52 


LOAD TAPE 


1E86 


51 


A 


FCB 


$51 


PUNCH TAPE 



* 

** * * * 
* 
* 
* 



*********************************** 

* 

HEX TO MUX DISPLAY * 
CONVERSION TABLE * 



Figure 8. KEYSCN, COLUMN, DEBOUNC, CHRIN, and STBL Routines (Cont'd) 
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o ' 1 ' o ' o ' 1 



' 1 


1 
















_n 



407 



157 



I STOP 1 
I I 



137 



BIT 

7 



407 



! e | 



407 
5 



1 I ! 1 i o 
i 



" | 157 j 137 j 157 j 137 j 407 j 157 | 137 | 



; 4 ; 3 ; 2 

a. Two Versions of Punch 



I 



407 



BIT 

1 i 



I 

' i o 



137 



137 
Cycles 



START 



TIME 

I I 

- ! ■ 



I 1 BIT 1 

I START I o I 

I I I 

Data: 01011001 ($59) 



I J I "* I 
i I I 

b. Two Versions of Load 



BIT 



Figure 9. Example of Serial Data Formats for Punch and Load 



i 



I 7 i STOP I 
I I I 
TIME *- 
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0001 










OPT 


CMOS 


0002 








* 






a pi a a t 




0000 

U XJ XJ XJ 


A 


PORTA 


FOII 
Li y u 




XJ 


0004 

t/ U f IU 'I 




0004 

f f U T 


A 


PORTAD 




4 


0005 




0001 


A 


PORTB 


EQU 


1 


6 

XJ XJ XJ XJ \J 




0008 


A 


TIMER 


EOU 

t-i \J \J 


g 


00 07 




0009 


A 


TIMEC 


EQU 


9 


(?) 01 pi ft 

LI f f U U 




170A 

X f XJ c\ 




CR1 


FOII 

y w 


$ 1 7 0A 

y ± f XJ n 


01 01 01 Q 

K/ 10 10 K/ .7 




1 70R 

± 1 XJ D 


a 


PRO 

v_ r\ £. 


FOIT 


V -L / XJ D 


01 CI 01 1 01 

10 10 10 -L 10 




1 7 01 01 

J. / 10 10 


a 

A 


qpp 

O Ej \^ 


POTT 


v 1 1 xD t) 


01 01 01 1 1 

10 10 10 J. -L 




1 7 01 9 
J. / 10 Z 


a 

A 


MTM 
ri J. in 


pnn 


£ 1 "7 01 


01 01 01 1 9 
10 10 10 J. z 




1 7014 

-L / 10 ft 


a 

A 


wnn d 
nu U K 


pnn 




10 1010 IJ 




± / 10 / 


A 

A 


UAl 


by u 


<5 1 "7 fi( T 


01 01 01 1 4 
10 10 10 1 ft 




1 7 01ft 
1 / 10 o 


A 
A 


MHMTH 

riuiN I n 




s> 1 / K) o 


10 10 10 1 D 




T 7 01 Q 


A 

A 


V TP A D 

I bAK 


by u 


?1 / la? 


01 01 0! 1 £ 
10 10 10 1 o 




1 ft 01 01 
J. O 10 10 


A 

A 




by u 


i q 01 oi 

V 1 O 10 W 


01 01 01 1 7 
10 10 10 1 / 




01 01 1 P 
10 10 J. r 


a 

A 




PHI I 

by u 


1*1 B 

s> lr 


01 01 01 1 Q 
1010 1 O 




0101 01 9 
Y) Y) V) o 


A 

A 


In U POdIS. F 


by u 




01 01 OM G 

y) 10 10 1 y 




oi oi a oi 
10 10 AI0 


A 

A 


D D PiMD T" 


cm t 

by u 


(* A (Tl 


01 01 01 O 01 
10 10 10 Z 10 




01 01 PP 

10 


A 

A 


r t mo 

L J Mr 


DAM 

by u 




01 01 01 O 1 
10 10 10 Z 1 




01 01 ft "3 
10 10 O J 


a 
A 


bWl Ur 


by u 


<5 fi "? 
P H J 


01 01 01 o o 

10 V) zz 








it 






oi oi oi o "3 a 
10 W 10 Z J A 


01 (7L A Oi 
10 10 H 10 










•? 4 k) 


01 01 (A 9 / 

10 10 W Zfl 








* 






01 01 01 9 R 
10 10 10 Z D 




01 OK 9 7 
10 10 J / 


A 
A 


dv DTnr 

Dl\ r ItSL 


pnn 
by u 




oi oioi 9 £ a 

10 10 10 Z D A 


01 01 4 01 
10 10 ft 10 


01 01 01 9 
10 10 10 J 


a 

A 


T on 
J. 


RMR 


J 


01 01 01 9 7 a 

10 10 10 Z. / rt 


01 01 4 9 
10 10 ft J 


01 01 01 "3 
10 10 10 j 


a 


1 X ny 


DMR 


-> 


00028A 


04fi 

v XJ *± \j 


lu W lu J 


a, 


TIRQW 


RMB 


■J 


01 0101 9G a 

10 10 10 z y r\ 


01 01 4 Q 
10 10 ft y 


01 01 01 £ 
10 10 10 D 


a 

A 


n^a rt 

JJ j. AD Li 


R MR 


o 


oi oi oi "3 oi a 

10 10 10 O 10/1 


01 01 4 P 
10 10 ft r 


01 01 01 1 
10 10 10 J. 


a 

A 


CUTT PT P, 


RMR 


X 


oi oi oi 9 i a 
!0 10 10 .3 ± A 


01 01 c: 01 
10 10 D 10 


01 01 01 1 

W !0 10 1 


A 

A 


wUKft 1 


D MR 


X 


oi oi oi 9 9 a 

10 10 10 j Z A 


01 01 K 1 
10 10 j 1 


01 01 01 1 

10 10 10 1 


A 

A 


urn D V 9 


D MR 


1 


00033A 


0052 


0001 


A 


ADDRH 


RMB 


1 


00034A 


0053 


0001 


A 


ADDRL 


RMB 


1 


00035A 


0054 


0001 


A 


WORK 3 


RMB 


1 


00036A 


0055 


0001 


A 


WORK 4 


RMB 


1 


00037A 


0056 


0001 


A 


WORK 5 


RMB 


1 


00038A 


0057 


0001 


A 


WORK 6 


RMB 


1 


00039A 


0058 


0002 


A 


TEMP 


RMB 


2 


00040A 


005A 


0001 


A 


PNCNT 


RMB 


1 


00041A 


005B 


0001 


A 


CHKSUM 


RMB 


1 


00042A 


005C 


0001 


A 


SREF 


RMB 


1 


00043A 


005D 


0001 


A 


LCNT 


RMB 


1 


00044A 


005E 


0001 


A 


PCNT1 


RMB 


1 


00045A 


005F 


0001 


A 


PCNT0 


RMB 


1 


00046 








* 
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PAGE 002 CBUG05 



SA:1 



00048 










* 


00049A 


1800 










00050 










* 


00051A 


1800 


A6 


F0 


A 


RESET 


rt rt rt i- *~\ » 

0052A 


1802 


B7 


04 


A 




00053A 


1804 


3F 


00 


A 




00054A 


1806 


3F 


5C 


A 




00055A 


1808 


A6 


0F 


A 




00056A 


180A 


B7 


5D 


A 




(i fii /i n n 

00 57A 


180C 


A6 


12 


A 




00058A 


180E 


T~, —J 

B7 


5E 


A 




(Ti ft ft r r\ » 

00059A 


1810 


A6 


26 


A 




rt rt ft f ft » 

00060A 


1812 


B7 


5F 


A 




j-Tt m r» ^ i 

0061 












/TI ft ft f~ ""V » 

006 2A 


1814 




1FC5 


A 


VECTOR 


00063A 


1816 




1FC7 


A 




00064A 


1818 




1FC4 


A 




00065A 


18 1A 


A6 


CC 


A 




0066A 


18 1C 


B7 


40 


A 




rt rt rt r~ ^ ti 

00067A 


181E 


B7 


43 


A 




0068A 


1820 


B7 


46 


A 




00069A 


1822 


C6 


1814 


A 




00070A 


1825 


B7 


41 


A 




00071A 


1827 


C6 


1815 


A 




00072A 


182A 


B7 


42 


A 




00073A 


182C 


C6 


1816 


A 




00074A 


182F 


B7 


44 


A 




00075A 


1831 


C6 


1817 


A 




0076A 


1834 


B7 


45 


A 




00077A 


1836 


C6 


1818 


A 




00078A 


1839 


B7 


47 


A 




00079A 


183B 


C6 


1819 


A 




00080A 


183E 


B7 


48 


A 




00081 










it 


00082A 


1840 


AE 


4F 


A 




00083A 


1842 


7F 






INIT 


00084A 


1843 


5C 








rt rt rt r\ r -m 

00085A 


1844 


A3 


56 


A 




0086A 


1846 


23 


FA 


1842 




rt rt rt ct *7 t\ 

00087A 


1848 


CD 


1DD3 


A 




ft ft rt r\ r\ ^ 

00088A 


184B 


A6 


FF 


A 




00089A 


184D 


F7 






REBCLR 


00090A 


184E 


5C 








rt rt rt /~\ t -* 

00091A 


184F 


5C 








00092A 


1850 


5C 








00093A 


1851 


3A 


5A 


A 




00094A 


1853 


26 


F8 


184D 




00095A 


1855 


83 








00096 










* 


00097 






1856 


A 


SWI 


00098A 


1856 


00 


4F 04 


185D 




00099A 


1859 


10 


4F 


A 




00100A 


185B 


20 


4E 


18AB 




00101A 


185D 


CD 


1DD3 


A 


SWICHK 


00102A 


1860 


F6 






SWIREP 


00103A 


1861 


2B 


0B 


186E 




00104A 


1863 


B7 


52 


A 




00105A 


1865 


E6 


01 


A 





ORG 


$1800 




LDA 


#$F0 


SETUP PORT 


STA 


PORTAD 


FOR KEYPAD 


CLR 


PORTA 


AND DISPLAY 


CLR 


SREF 


INITIALIZE 


LDA 


#$F 


TAPE SOFTWARE 


STA 


LCNT 


FOR 2400 BAUD 


LDA 


#$12 




bTA 


n f~y XT rn 1 

PCNTl 




LDA 


#$26 




STA 


r~ \ j"ixi m ft 

PCNT0 




FDB 


IRQV 


SET-UP 


FDB 


TIRQV 


INTERRUPT 


FDB 


TIRQWV 


VECTORS 


LDA 


#LJMP 


IN RAM 


STA 


IRQ 




STA 


TIRQ 




STA 


TIRQW 




LDA 


VECTOR 




STA 


IRQ+1 




LDA 


VECTOR+1 




STA 


IRQ+2 




LDA 


VECTOR+2 




STA 


TIRQ+1 




LDA 


VECTOR+3 




STA 


TIRQ+2 




LDA 


VECTOR+4 




STA 


TIRQW+1 




LDA 


VECTOR+5 




STA 


TIRQW+2 




LDX 


#SWIFLG 




CLR 


0,X 


CLEAR 


INCX 




WORKING 


CPX 


#W0RK5 


STORAGE 


BLS 


INIT 




JSR 


SCNBKP 


CLEAR 


LDA 


#$FF 


ALL 


STA 


0,X 


BREAKPOINTS 


INCX 






INCX 






INCX 






DEC 


PNCNT 




BNE 


REBC LR 




SWI 






EQU 


* 




BRSET 


0,SWIFLG 


, SWICHK FROM RI 


BSET 


0,SWIFLG 


YES 


BRA 


GETCMD 




JSR 


SCNBKP 


REMOVE 


LDA 


0,X 


BREAKPOINTS 


BMI 


SWINOB 




STA 


ADDRH 




LDA 


i,x 
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0106A 

u i/ i. f u n 


1867 


B7 


53 


A 




STA 


ADDRL 




CI CI 1 07 A 

V x) X V 1 t\ 


1 O u " 


Cj u 


CI 9 


A 




r nA 


2 x 




Pi d 1 PI 8 A 

v XJ X XJ O t\ 


J. O U D 




1 F24 


A 




JSR 


STORE 




vy K/ J. 10 _7 




RP 






SWT NOR 


TNPX 




GET NEXT B P. 


00110A 


186F 


5C 








INCX 






CI 1 1 1 A 

W 1 1 In 


X O / XJ 


SP 








INCX 






XJ XJ X X c,t\ 


x o / x 


"3 A 


R A 

DA 


A 




LJ Cj V- 


PNCNT 




0OM 1 ^ A 


X O / J 




PR 


1 fi CI 




RM P 

DIN Cj 


^WTRFP 
on x r\i_i r 




0114 

f iy 1 1 4 


















(J If 1 J. Jn 


1 87 R 


pn 


1 Q 1 fi 


A 




JSR 




FIND STACK 


01 1 fiA 

u t/ l i u n 


1878 


E6 


08 


A 




LDA 


8 , X 




£7t £71 n 1 7 a 
iy w i i / t\ 


1 ft. 7 A 


A0 

XJ 


01 1 

XJ X 


A 
rt 




SUB 


IT X 


ADJUST 


10 10 X 1 A 


1 ft 7P 
X / 


R7 


D^ 


A 
A 




qrp A 
Din 


TPMP-1- 1 
1 Lj 1 v 1 tr T X 




10 10 J. X yt\ 


1 ft7P 
X O / Cj 


Pfi 

EjD 


017 
!0 / 


A 
A 




r nA 

XjJJ A 


7 Y 




01 ON 01 a 

10 10 1 Z 10 A 


1 ft ft 01 
X 10 


A 9 
AZ 


01 01 
10 10 


A 
A 






01 
ft 10 




01 01 1 1 A 
10 10 1 Z 1 A 


1 ft ft 9 
X O O Z 


D / 


R ft 
D O 


A 

A 




QT A 
D i. A 


TPMD 




01 01 1 9 A 
10 10 X <C Z A 


1 ft ft A 
X O O 4 


DP 

or 


R 7 
D / 


A 
A 




QT Y 
o 1 A 


WnRK'fi 
ln(VJr\r\ D 


caup QTAPPT f flPATTOM 


01 01 1 9 "3 A 
10 10 1 Z J A 


1 ft ft fi 
X O O D 


pn 


1 nn 9 
X UJJ D 


A 
A 






CpW DLfD 

Dv^lM Dl\ Jr 


QPTITD R P QPAM 


01 01 1 9 /I a 
WbI Z ft A 


1 ft ft Q 


pfi 
r D 






CUTTTDV 
oWX lnl 


r n A 
L.JJ A 


01 Y 
10 / A 


An TiiQTPn p p 


01 01 1 9 R A 
10 10 1 Z DA 


1 ft ft A 
X OA 


9 R 
Z o 


1 R 
X D 


1 OA 1 

X AX 




DMT 

DrlX 


QI/JT PMD 
D W X ^ 1*1 ir 


TM R P TART P 9 

XlN D . r . IADLjLj; 


01 01 1 9 £ a 
10 1 Z DA 


1 Q ft p 
X O O ^ 


R 1 

dX 


R Q 

D<5 


A 

A 




PMD 

Ll*lr 


TPMD 
I LjH Jr 




01 01 1 9 7 A 
10 10 1 Z / A 


1 ft ft P 


9 fi 
Z D 


l i 
X X 


1 ft A 1 
X AX 




RM P 


cut PMD 




01 01 1 9 ft A 
v 10 X Z O A 


X O Z7 10 


Pfi 
LjD 


01 1 
10 X 


A 




r nA 


1 Y 
X , A 




"1 9 QA 


1 QQO 

± l> y z. 


Rl 


~> y 


A, 




CMP 


TEMP+ 1 




a a l 9 oi a 

10 10 X D 10 A 


1 ft Q A 
x o y 4 


9fi 
Z D 


01R 

10 D 


"1 ft AT 
1 O A X 




RM P 

DIN Lj 


QWT PMP 

D W X ^ rl tr 


MD TRV AP, ATM 

Vi\J g 1 l\I rtVj rt X IN 


01 01 1 9 1 A 
10 10 J. J X A 


1 ftQfi 
X y D 


R I? 


R7 
D / 


A 
A 




LU A 


wn r v fi 


VPQ RPQTORP Q P 


01 01 1 9 9 A 
10 10 1 D Z A 


1 ft Q ft 


P7 


01ft 
10 O 


A 
A 




QT A 
D 1 A 


ft Y 
O / A 


PUT AHTITQTPn P P 


01 Of 1 9 9 A 
10 10 X D J A 


1 ft Q A 
X O y A 


Rfi 
DO 


Rft 
Do 


A 

A 




r n a 


TPMD 


TMTH QTAPT^ 


01 01 1 9 A A 


1 ftQp 


Lj / 


017 
10 / 


A 
A 




QT A 

Din 


7 Y 
/ , A 




01 01 1 9 R A 
10 10 -L j OA 


T ftQP 


pp 


1 R 9 1 
X D D X 


A 
A 




IMP 

\J rl ir 


TP APP 


PYPPI1TP 1 TMQTR1TPTTON 

u A Lj L U 1 L X UNO 1 f\U L i 1 \JIH 


01 CM 9 fiA 
10 10 X D DA 


1 ft A 1 
X O AX 


rp 

Dv- 






cu/t CMP 


X J.N \^ A 




MPYT R P 

IN Lj A I D • IT m 


01 01 1 9 *7 A 
W W 1 j / A 


1 ft A 9 
X O AZ 


Dv, 








T MP Y 
X In \» A 






01 01 1 9 ft A 
10 til j£5n 


1 ft A 9 
X Onj 


CP 

DL- 








X IN ^ A 






01 01 1 9 Q A 
10 10 J. D y A 


1 ft A 4 
X C5 A4 


9 A 
jA 


R A 
DA 


A 
A 




npp 


PMPMT 
tr ln \^ in i 




01 01 "1 4 01 A 
10 10 X <i 10 A 


T ftAfi 
X O AO 


9fi 
ZD 


Ej X 


1 ftftQ 




RM P 

D IN Lj 


QWT TR V 

OWX 1 r\I 


nOM P 9 

lJKJV>* Lj . 


01 01 1 4 1 A 
!0 !0 X fi _L A 


1 ftAft 
X OnO 




1 Q 9ft 
X y Z O 


A 




TMP 

ij i T J Jr 


PPOITMT 
r ^ u u in i 


VPQ PR TNT P C 
lLjO r r\ i ln l tr • • 


01 01 1 A 9 
10 10 X ft Z 










* 








01 01 1 / 9 
10 10 X fi O 






1 ft A R 

X o Ad 


A 
A 


c urpp m n 
o Ij i \^ ri u 


pn ti 

Lj^ u 


* 




10 (0 J. 4 4 A 


1 Q A D 

1 oAb 




X Ur D 


A 

A 




T Q D 
JDK 


P f DT A R 
LLKI AD 




v) !0 1 4 DA 


1 qap 
X o Ah 


Ab 


AW 


A 

A 




t n a 

L>L) A 


4 D D n MP T 
ft r KUMr 1 


Jr K X iN 1 


01 01 1 /I £ A 

10 Y) X 4 DA 


i ft r oi 
X o £510 


R9 


A Q 

4y 


A 

A 




QT A 
D 1 A 


DT A R f 
U L AD Lj 


i — l 


01 01 1 /"7a 
10 10 X ft / A 


i q n 9 
X o tsz 


r*n 
y^u 


X Ur u 


A 
A 




7 Q R 


n T QT A R 

U X D 1 AD 


PROMPT 
rKUrlr L 


01 01 1 vl Q 

10 10 X 4 o 


















01 01 1 A Q A 
10 10 X ft y A 


1 PRC 

X O D D 




1 P 9 9 


A 
r\ 


^ Cl D O ^ LN 


TQ P. 


K P V QPM 


PHPPK K"PVPAn 


01 01 1 R 01 A 
10 KJ X D 10 A 


1 ft Rft 


OA 

Z fi 


PR 
r d 


1 ft RR 
X O D D 




RPP 


PMDQPM 




01 Of 1 R 1 A 
10 10 X D X A 


1 ft R A 
X DA 


R P 








PT RY 

V- Lj K A 






01 01 1 R 9 A 
10 10 X D Z A 


1 ft R R 
X O D D 


R7 


R 01 
D 10 


A 

A 




QT A 

D L rt 


WORK 1 

rVUnlXl 




01 01 1 R 9 A 
10 10 X D ^ A 


i ft nn 


nfi 
DO 


i ft n 9 
X o u Z 


A 
A 


DTIIMD 

KJ urilr 


r n a 

LjIJ A 


PT A R f Y 
rlnDL f A 


TH T Q PHMMAMn9 


01 CM R4 A 
ui/l Jin 


1 ftPOl 

X O v-, 10 


R 1 
DX 


R 01 

D 10 


A 
r\ 




PMP 


WORK 1 

W KJ l\ i\ X 




00155A 


18C2 


27 


0A 


18CE 




BEQ 


PJUMP 


YES 


00156A 


18C4 


Al 


68 


A 




CMP 


#$68 




00157A 


18C6 


27 


E3 


18AB 




BEQ 


GETCMD 




00158A 


18C8 


5C 








INCX 




NO 


00159A 


18C9 


5C 








INCX 




GO TO 


00160A 


18CA 


5C 








INCX 




NEXT 


00161A 


18CB 


5C 








INCX 




POSSIBLE 


00162A 


18CC 


20 


EF 


18BD 




BRA 


RJUMP 


TRY AGAIN 


00163A 


18CE 


5C 






PJUMP 


INCX 




GO TO 
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00164A 18CF DC 18D2 A JMP PTABL , X COMMAND 

00165 * 
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00167 



CI CI 1 fift A 




1 i 

JL JL 


A PTAFU 


FCB 


$11 

V -L J- 


00169A 


18D3 


CC 


A 


FCB 


LJMP 


00170A 


18D4 


1928 


A 


FDB 


PCOUNT 


00171A 


18D6 


12 


A 


FCB 


$12 


017 2A 


18D7 


CC 


A 


FCB 


LJMP 


00173A 


18D8 


1940 


A 


FDB 


AREG 


00174A 


18DA 


14 


A 


FCB 


$14 


00175A 


18DB 


CC 


A 


FCB 


LJMP 


176A 


1 8DC 


195A 


A 


FDB 


XREG 


00177A 


18DE 


18 


A 


FCB 


$18 


1 78A 

if X I LJ ii 


18DF 


CC 


A 


FCB 


LJMP 


CI a i 7Qi 

10 If J. / y A 

CI PI 1 fl CI 




1 Q77 
j. y / / 


a 

* 


priR 




\o vt low 
oi oi i P. l a 


1 P P 9 


9 
Z o 


A 
A 




<5 9(3 


01 (51 1 Q o a 
10 10 J. O ZA 


1 OPT 

lot J 




A 

A 


PPR 


r TMD 


CH (J\ 1 Q "3 a 
k5 W 1 o JA 


1 P P A 


1 PT-17 


A 

A 


phr 


irWKUWIN 


001B4 












0185A 


18E6 


32 


A 


FCB 


$32 


00186A 


l O r> *7 

18E7 


CC 


A 


FCB 


LJMP 


00187A 


1 O TT» O 


1 X "7 O 

1A /b 


A 


FDB 


BPDIS 


fll fil 1 Q O 71 


1 o h A 


"3 >i 


A 
A 






oi on a q a 

£/ K7 J. O y A 


1 APR 


tt 


a 


PfR 


r tmp 


01 CI 1 Q CIA 


± O Ej V— 


1 ADfi 


a 

n 


pnR 

ruo 


Rprr r 


CI 01 1 Q 1 A 


1 O Lj Ej 


J o 


a 


PfR 


V J o 


CI CI 1 Q 9 A 

tj YJ L y Z./A 


j. o Xj r 




a 


FPR 

E \* LJ 


LJMP 


CI CI 1 Q "J a 

XJ XJ X J Or\ 


1 ft PCI 
j. o r yj 


1 R"5. 1 
ID j 1 


a 


FDR 


TRAPF 

1 JT\ i\ JLj 


CI CI1 Q4 

XJ XJ X -7 rs 






* 






00195A 


18F2 


42 


A 


FCB 


$42 


00196A 

xj xj j. y \j n 


18F3 


CC 


A 


FCB 


LJMP 


00197A 


18F4 


1C0B 


A 


FDB 


DTIME 


00198A 

rJ tj X J KJ 


18F6 


44 


A 


FCB 


$44 


CI1 Q Q A 


IOC / 




a 


PPM 


LJMP 


fil (A O fil fil A 
W 1(9 Z 10 10 A 


J. o r o 


1 DOC 
1BOD 


A 

A 


r ud 


ctt MP 


CI CI 9 CI 1 A 


1 R PA 
lorn 


H O 


a 


FCR 

JT O 




CI CI 9 CI 9 A 


1 H PR 


tt 


a 

A 




r tmp 


fit fil O fit O A 

10 W Z V) J A 


1 P 

loft. 


1 QpC 

i y tj d 


A 
A 


r Ud 


Uf r dl i 


fit fil 9 fil A 












fit fil O fil R A 

10 10 Z 10 jA 


1 Q PP 

lore. 


3 1 


A 

A 




9Dl 


fil fit O fil C A 

V) V) Z I0O A 


1 Q PP 

lore 




A 

A 


pr* n 


r TMD 

Li J rllr 


fil fil O fil "7 A 
10 10 Z 10 / A 


1 Q 01 01 

i y v> Y> 


It jj 


A 
A 


pnR 


pITMPH 
rulNLn 


CI fil 9 OS Q A 
10 10 Z 10 O A 


1 Q 01 9 


R 9 
z 


a 

A 


PP R 


Ceo 

V 9 Z 


fil fil O fil Ck A 

(0 10 z so y A 


i y S3 j 




A 

A 


rib 




fil fil 9 1 fil A 
10 10 Z 1 W A 


1 Q 01 /I 

i y k3 4 


l rriri 
ItlJU 


A 

A 


PHR 

r JJt5 


T*r nan 

l Lt UnU 


01 fil 9 1 1 A 
10 10 Z 1 1 A 


jl y w d 


a 


A 

A 






fil fit O 1 OA 
W V) Z 1 ZA 


1 O. 01 "7 

i y fc) / 


Ct- 


A 

A 


rub 


r TMD 


fil fil O 1 T A 
10 10 Z 1 J A 


i y Kio 


llJo 1 


A 

A 


r ud 


\7"PD T PV 


00214 






* 






00215A 


190A 


62 


A 


FCB 


$62 


00216A 


190B 


CC 


A 


FCB 


LJMP 


00217A 


190C 


1D8F 


A 


FDB 


GO 


00218A 


190E 


64 


A 


FCB 


$64 


00219A 


190F 


CC 


A 


FCB 


LJMP 


00220A 


1910 


1EAA 


A 


FDB 


MEMEX 


00221A 


1912 


68 


A 


FCB 


$68 


00222A 


1913 


CC 


A 


FCB 


LJMP 


00223A 


1914 


1DDA 


A 


FDB 


STACK 



00224 



PROGRAM COUNTER 
ACCUMULATOR 
INDEX REGISTER 
CONDITION CODE 

UNUSED 

DISPLAY/SET BP 
CLEAR BP 

TRACE ONE INSTRUCTION 

DISPLAY TIME 
SET TIME 

OFFSET CALCULATION 

PUNCH TAPE 
LOAD TAPE 
VERIFY TAPE 

GO 

MEMORY 
STACK 
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00226 










**************************************** 


00227 










* 




* 


00228 










* 


SEARCH 


FOR STACK POINTER * 


00229 










* 




* 


00230 










* 


X-REG 


CONTAINS SP-3 * 


00231 










* 




* 


00232 










* 


A-REG 


DESTROYED * 


00233 










* 




* 


00234 










**************************************** 


00235 










* 






00236A 


1916 


AD 


01 


1919 


LOCSTK 


BSR 


LOCST2 


00237 






0019 


A 


STKHI 


EQU 


*/256 


00238 






0018 


A 


STKLOW 


EQU 


*-(*/256) *256 


00239A 


1918 


81 








RTS 




00240A 


1919 


AE 


7F 


A 


LOCST2 


LDX 


#$7F 


00241A 


191B 


A6 


19 


A 


LOCLOP 


LDA 


#STKHI 


00242A 


191D 


5A 






LOCDWN 


DECX 




00243A 


191E 


Fl 








CMP 


0,X 


00244A 


191F 


26 


FC 


191D 




BNE 


LOCDWN 


00245A 


1921 


A6 


18 






LDA 


fSTKLOW 


00246A 


1923 


El 


01 


A 




CMP 


i,x 


00247A 


1925 


26 


F4 


191B 




BNE 


LOCLOP 


00248A 


1927 


81 








RTS 




00249 










* 






00250 










**************************************** 


00251 










* 




* 


00252 










* 


DISPLAY PROGRAM COUNTER * 


00253 










* 




* 


00254 










**************************************** 


00255 










* 






00256 






1928 


A 


PCOUNT 


EQU 


* 


00257A 


1928 


A6 


73 


A 




LDA 


#$73 PRINT 


00258A 


19 2A 


B7 


4D 


A 




STA 


DTABL+4 'PC 


00259A 


192C 


A6 


Dl 


A 




LDA 


#$D1 


00260A 


192E 


B7 


4E 


A 




STA 


DTABL+5 


00261A 


1930 


AD 


E4 


1916 




BSR 


LOCSTK FIND USER PC 


00262A 


1932 


E6 


07 


A 




LDA 


7,X HIGH BYTE 


00263A 


1934 


B7 


52 


A 




STA 


ADDRH 


00264A 


1936 


E6 


08 


A 




LDA 


8,X LOW BYTE 


00265A 


1938 


B7 


53 


A 




STA 


ADDRL PRINT IT 


00266A 


193A 


CD 


1FB0 


A 




JSR 


PRTADR 


00267A 


193D 


CC 


18B5 


A 




JMP 


CMDSCN 


00268 










* 






00269 










**************************************** 


00270 










* 




* 


00271 










* 


ACCUMULATOR EXAMINE/CHANGE * 


00272 










* 




* 


00273 










**************************************** 


00274 










* 






00275 






1940 


A AREG 


EQU 


* 


00276A 


1940 


A6 


77 


A 




LDA 


#$77 PRINT 'ACCA' 


00277A 


1942 


B7 


49 


A 




STA 


DTABL 


00278A 


1944 


B7 


4C 


A 




STA 


DTABL+3 


00279A 


1946 


A6 


Dl 


A 




LDA 


#$D1 


00280A 


1948 


B7 


4A 


A 




STA 


DTABL+1 


00281A 


194A 


B7 


4B 


A 




STA 


DTABL+2 


00282A 


194C 


AD 


C8 


1916 




BSR 


LOCSTK FIND ACCUM. VALUE 


00283A 


194E 


9F 








TXA 
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00284A 

00285A 

00286A 

00287A 

00288A 

00289 

00290 

00291 

00292 

00293 

00294 

00295 

00296 

00297A 

00298A 

00299A 

00300A 

00301A 

00302A 

00303A 

00304A 

00305A 

00306A 

00307A 

00308A 

00309A 

00310A 

00311 

00312 

00313 

00314 

00315 

00316 

00317 

00318 

00319 

00320A 

00321A 

00322A 

00323A 

00324A 

00325A 

00326A 

00327A 

00328A 

00329A 

00330A 

00331A 

00332A 

00333A 

00334A 

00335A 

00336 

00337 

00338 

00339 

00340 

00341 



194F AB 05 

1951 3F 52 

1953 B7 53 

1955 1C 4F 

1957 CC 1EB1 



195A 
195C 
195F 
1961 
1963 
1965 
1967 
1969 
196B 
196C 
196E 
1970 
1972 
1974 



195A 
A6 06 
CD 1DF5 
B7 4A 
A6 E6 
B7 4B 
A6 60 
B7 4C 
AD AB 
9F 

AB 06 
3F 52 
B7 53 
1C 4F 
CC 1EB1 



1977 CD 
197A A6 
197C B7 
197E A6 
1980 B7 
1982 A6 
1984 B7 
1986 A6 
1988 B7 
198A AD 
198C 9F 
198D AB 
198F 3F 
1991 B7 
1993 1C 
1995 CC 



1977 

1DF5 

Dl 

49 

D7 

4A 

E6 

4B 

Fl 

4C 

8A 

04 
52 
53 
4F 

1EB1 



A ADD #5 

A CLR ADDRH SETUP FOR 

A STA ADDRL EXAMINE /CHANGE 

A BSET 6,SWIFLG 

A JMP MEMEX3 USING MEMORY ROUTINE 
* 

**************************************** 

* * 

* INDEX REGISTER EXAMINE/CHANGE * 

* * 
**************************************** 
* 



PRINT 'ID' 



A 


XREG 


EQU 


* 


A 




LDA 


#6 


A 




JSR 


CLRTAB 


A 




STA 


DTABL+1 


A 




LDA 


#$E6 


A 




STA 


DTABL+2 


A 




LDA 


#$60 


A 




STA 


DTABL+3 


1916 




BSR 


LOCSTK 






TXA 




A 




ADD 


#6 


A 




CLR 


ADDRH 


A 




STA 


ADDRL 


A 




BSET 


6,SWIFLG 


A 


* 


JMP 


MEMEX3 




********************** 

•la 






CONDITION CODE 




* 


EXAMINE/CHANGE 




********************** 

■X. 


A 


CCODE 


EQU 


* 


A 




JSR 


CLRTAB 


A 




LDA 


#$D1 


A 




STA 


DTABL 


A 




LDA 


#$D7 


A 




STA 


DTABL+1 


A 




LDA 


#$E6 


A 




STA 


DTABL+2 


A 




LDA 


#$F1 


A 




STA 


DTABL+3 


1916 




BSR 


LOCSTK 






TXA 




A 




ADD 


#4 


A 




CLR 


ADDRH 


A 




STA 


ADDRL 


A 




BSET 


6,SWIFLG 


A 




JMP 


MEMEX3 



FIND INDEX 
REGISTER VALUE 

SETUP FOR 
EXAMINE/CHANGE 

USING MEMORY ROUTINE 



* 
* 
* 
* 



*********** 

* 

* 

* 

* 



FIND CONDITION 
CODES 

SETUP FOR 
EXAMINE/CHANGE 

USING MEMORY ROUTINE 



***************************** 

* 

BUILD A BEGINNING * 
AND ENDING * 
ADDRESS RANGE * 
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00342 










* 








* 


00343 










* 




TEMP,TEMP+1 : BEGINNING 


* 


00344 










* 




ADDRH , ADDRL : ENDING 


* 


00345 










* 








* 


00346 










**************************************** 


00347 










* 










00348A 


1998 


19 


4F 


A 


BLDRNG 


BCLR 


4 ,SWIFLG 






00349A 


199A 


17 


4F 


A 




BCLR 


3,SWIFLG 






00350A 


199C 


CD 


1DF5 


A 




JSR 


CLRTAB 


PRINT 




00351A 


199F 


A6 


F4 


A 




LDA 


#$F4 


'BA' 




00352A 


19A1 


B7 


4D 


A 




STA 


DTABL+4 






00353A 


19A3 


A6 


77 


A 




LDA 


#$77 






00354A 


19A5 


B7 


4E 


A 




STA 


DTABL+5 






00355A 


19A7 


CD 


1DFD 


A 




JSR 


DISTAB 






00356A 


19AA 


CD 


1F58 


A 




JSR 


BLDADR 


GET SOURCE ADDR 


• 


00357A 


19AD 


24 


2C 


19DB 




BCC 


BLDRN1 


VALID? 




00358A 


19AF 


B6 


52 


A 




LDA 


ADDRH 


YES 




00359A 


19B1 


Al 


IF 


A 




CMP 


#PCMASK 


TOO BIG? 




00360A 


19B3 


22 


2A 


19DF 




BHI 


BLDRN2 


YES 




00361A 


19B5 


B7 


58 


A 




STA 


TEMP 


NO SAVE IT 




00362A 


19B7 


B6 


53 


A 




LDA 


ADDRL 






00363A 


19B9 


B7 


59 


A 




STA 


TEMP+1 






00364A 


19BB 


CD 


1F15 


A 




JSR 


LOAD 


FETCH OPCODE OF 


INSTR . 


00365A 


19BE 


B7 


57 


A 




STA 


WORK6 


SAVE IT 




00366A 


19C0 


CD 


1DF5 


A 




JSR 


CLRTAB 






00367A 


19C3 


A6 


Fl 


A 




LDA 


#$F1 


PRINT 1 EA' 




00368A 


19C5 


B7 


4D 


A 




STA 


DTABL+4 






00369A 


19C7 


A6 


77 


A 




LDA 


#$77 






00370A 


19C9 


B7 


4E 


A 




STA 


DTABL+5 






00371A 


19CB 


CD 


1DFD 


A 




JSR 


DISTAB 






00372A 


19CE 


CD 


1F58 


A 




JSR 


BLDADR 


GET DESTINATION 


ADDR 


00373A 


19D1 


24 


08 


19DB 




BCC 


BLDRN1 


VALID? 




00374A 


19D3 


B6 


52 


A 




LDA 


ADDRH 


YES 




00375A 


19D5 


Al 


IF 


A 




CMP 


#PCMASK 


TOO BIG? 




00376A 


19D7 


22 


06 


19DF 




BHI 


BLDRN2 


YES 




00377A 


19D9 


20 


06 


19E1 




BRA 


BLDRET 






00378A 


19DB 


18 


4F 


A 


BLDRN1 


BSET 


4,SWIFLG 


INVALID 




00379A 


19DD 


20 


02 


19E1 




BRA 


BLDRET 






00380A 


19DF 


16 


4F 


A 


BLDRN2 


BSET 


3,SWIFLG 


TOO BIG 




00381A 


19E1 


81 






BLDRET 


RTS 








00382 










* 










00383 










**************************************** 


00384 










* 








* 


00385 










* 




CALCULATE 


BRANCH OFFSET 


* 


00386 










* 




FOR BIT AND CONDITIONAL 


* 


00387 










* 




BRANCHES 




* 


00388 










* 








* 


00389 










* 




OPCODE MUST BE AT 


* 


00390 










* 




BEGINNING 


ADDRESS 


* 


00391 










* 








* 


00392 










* 




OFFSET WILL BE INSERTED 


* 


00393 










* 




INTO BRANCH INSTRUCTION 


* 


00394 










* 








* 


00395 










**************************************** 


00396 










* 










00397A 


19E2 


CC 


1E97 


A 


OFFERR 


JMP 


ERROR 






00398 










* 










00399 






19E5 


A 


OFFSET 


EQU 


* 
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00400A 


19E5 


AD 


Bl 


1998 




BSR 


BLDRNG 




00401A 


19E7 


08 


4F 2B 


1A15 




BRSET 


4,SWIFLG 


, ORET 


00402A 


19EA 


06 


4F F5 


19E2 




BRSET 


3,SWIFLG 


, OFFERR 


00403A 


19ED 


B6 


53 


A 




LDA 


ADDRL 


NO FIND APPARRENT 


00404A 


19EF 


B0 


59 


A 




SUB 


TEMP+1 


OFFSET 


00405A 


19F1 


A0 


02 


A 




SUB 


#2 




00406A 


19F3 


B7 


53 


A 




STA 


ADDRL 




00407A 


19F5 


B6 


52 


A 




LDA 


ADDRH 




00408A 


19F7 


B2 


58 


A 




SBC 


TEMP 




00409A 


19F9 


B7 


52 


A 




STA 


ADDRH 




00410A 


19FB 


B6 


57 


A 




LDA 


WORK6 


CHECK OPCODE 


00411A 


19FD 


Al 


IF 


A 




CMP 


#$1F 


FOR BIT BRANCH 


00412A 


19FF 


23 


41 


1A42 




BLS 


OFFST1 




00413A 


1A01 


B6 


52 


A 




LDA 


ADDRH 




00414A 


1A0 3 


Al 


FF 


A 




CMP 


#$FF 


+ OR - OFFSET? 


00415A 


1A05 


27 


03 


1A0A 




BEQ 


OFFST2 




00416A 


1A07 


4D 








TSTA 




CHECK OFFSET 


00417A 


1A08 


26 


60 


1A6A 




BNE 


OVRERR 


FOR +/- 


00418A 


1A0A 


B6 


53 


A 


0FFST2 


LDA 


ADDRL 




00419A 


1A0C 


Al 


FF 


A 




CMP 


#$FF 




00420A 


1A0E 


27 


5A 


1A6A 




BEQ 


OVRERR 




00421A 


1A10 


AD 


06 


1A18 




BSR 


USE 


PRINT IT IF VALID 


00422A 


1A12 


CC 


18B5 


A 




JMP 


CMDSCN 




00423A 


1A15 


CC 


18AB 


A 


ORET 


JMP 


GETCMD 




00424 










* 








00425A 


1A18 


CD 


1DF5 


A 


USE 


JSR 


CLRTAB 




00426A 


1A1B 


A6 


D6 


A 




LDA 


#$D6 


PRINT 'USED' 


00427A 


1A1D 


B7 


49 


A 




STA 


DTABL 




00428A 


1A1F 


A6 


B5 


A 




LDA 


#$B5 




00429A 


1A21 


B7 


4A 


A 




STA 


DTABL+1 




00430A 


1A2 3 


A6 


Fl 


A 




LDA 


#$F1 




00431A 


1A25 


B7 


4B 


A 




STA 


DTABL+2 




00432A 


1A27 


A6 


E6 


A 




LDA 


#$E6 




00433A 


1A29 


B7 


4C 


A 




STA 


DTABL+3 




00434A 


1A2B 


B6 


53 


A 




LDA 


ADDRL 


PRINT OFFSET 


00435A 


1A2D 


CD 


1F8C 


A 




JSR 


PRTDAT 




00436A 


1A30 


97 








TAX 






00437A 


1A31 


B6 


59 


A 




LDA 


TEMP+1 




00438A 


1A33 


AB 


01 


A 




ADD 


#1 




00439A 


1A35 


B7 


53 


A 




STA 


ADDRL 




00440A 


1A37 


B6 


58 


A 




LDA 


TEMP 




00441A 


1A39 


A9 


00 


A 




ADC 


#0 


PUT INTO 


00442A 


1A3B 


B7 


52 


A 




STA 


ADDRH 


INSTRUCTION 


00443A 


1A3D 


9F 








TXA 






00444A 


1A3E 


CD 


1F24 


A 




JSR 


STORE 




00445A 


1A41 


81 








RTS 






00446 










* 








00447A 


1A42 


B6 


53 


A 


OFFST1 


LDA 


ADDRL 


ADJUST FOR 


00448A 


1A44 


A0 


01 


A 




SUB 


#1 


BIT BRANCH 


00449A 


1A46 


B7 


53 


A 




STA 


ADDRL 




00450A 


1A48 


B6 


52 


A 




LDA 


ADDRH 




00451A 


1A4A 


A2 


00 


A 




SBC 


#0 




00452A 


1A4C 


B7 


52 


A 




STA 


ADDRH 




00453A 


1A4E 


Al 


FF 


A 




CMP 


#$FF 


NEG OFFSET? 


00454A 


1A50 


27 


03 


1A55 




BEQ 


OFFST3 


YES 


00455A 


1A52 


4D 








TSTA 




CHECK FOR 


00456A 


1A53 


26 


15 


1A6A 




BNE 


OVRERR 


+/- AND -1 


00457A 


1A55 


B6 


53 


A 


OFFST3 


LDA 


ADDRL 
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00458A 


1A57 


Al 


FF 


A 




CMP 


#$FF 




00459A 


1A59 


27 


0F 


1A6A 




BEQ 


OVRERR 




00460A 


1A5B 


Al 


FE 


A 




CMP 


#$FE 




00461A 


1A5D 


27 


0B 


1A6A 




BEQ 


OVRERR 




00462A 


1A5F 


3C 


59 


A 




INC 


TEMP+1 




00463A 


1A61 


26 


02 


1A65 




BNE 


OFFITS 




00464A 


1A63 


3C 


58 


A 




INC 


TEMP 




00465A 


1A6 5 


AD 


Bl 


1A18 


OFFITS 


BSR 


USE 


PRINT IF VALID 


00466A 


1A67 


CC 


18B5 


A 




JMP 


CMDSCN 




00467 










* 








00468A 


1A6A 


A6 


D7 


A 


OVRERR 


LDA 


#$D7 


PRINT 'OR' 


00469A 


1A6C 


B7 


4D 


A 




STA 


DTABL+4 




00470A 


1A6E 


A6 


60 


A 




LDA 


#$60 




00471A 


1A70 


B7 


4E 


A 




STA 


DTABL+5 




00472A 


1A72 


CD 


1FB0 


A 




JSR 


PRTADR 




00473A 


1A75 


CC 


18B5 


A 




JMP 


CMDSCN 




00474 


















00475 










************************************** 


00476 










* 








00477 










* 




DISPLAY/SET BREAKPOINTS 


00478 










* 








00479 










************************************** 


00480 










* 








00481 






1A78 


A 


BPDIS 


EQU 


* 




00482A 


1A78 


3F 


57 


A 




CLR 


WORK 6 




00483A 


1A7A 


3A 


57 


A 




DEC 


WORK 6 




00484A 


1A7C 


CD 


1DD3 


A 




JSR 


SCNBKP 


FIND B.P. TABLE 


00485A 


1A7F 


BF 


51 


A 




STX 


WORK 2 




00486A 


1A81 


3F 


4D 


A 


BPDIS1 


CLR 


DTABL+4 




00487A 


1A8 3 


F6 








LDA 


0,X 


GET B.P. 


00488A 


1A84 


2A 


10 


1A96 




BPL 


BPDIS2 


VALID? 


00489A 


1A86 


A6 


F4 


A 




LDA 


#$F4 


NO 


00490A 


1A88 


B7 


49 


A 




STA 


DTABL 


PRINT 'BOFF' 


00491A 


1A8A 


A6 


D7 


A 




LDA 


#$D7 




00492A 


1A8C 


B7 


4A 


A 




STA 


DTABL+1 




00493A 


1A8E 


A6 


71 


A 




LDA 


#$71 




00494A 


1A9 


B7 


4B 


A 




STA 


DTABL+2 




00495A 


1A92 


B7 


4C 


A 




STA 


DTABL+3 




00496A 


1A94 


20 


09 


1A9F 




BRA 


BPDIS4 




00497A 


1A96 


B7 


52 


A 


BPDIS2 


STA 


ADDRH 


PRINT B.P. 


00498A 


1A98 


E6 


01 


A 




LDA 


i,x 




00499A 


1A9A 


B7 


53 


A 




STA 


ADDRL 




00500A 


1A9C 


CD 


1FB0 


A 




JSR 


PRTADR 




00501A 


1A9F 


3C 


57 


A 


BPDIS4 


INC 


WORK6 


PRINT B.P. # 


00502A 


1AA1 


BE 


57 


A 




LDX 


WORKS 




00503A 


1AA3 


D6 


1E87 


A 




LDA 


CTABL , X 




00504A 


1AA6 


B7 


4E 


A 




STA 


DTABL+5 




00505A 


1AA8 


CD 


1DFD 


A 




JSR 


DISTAB 




00506A 


1AAB 


CD 


1F58 


A 




JSR 


BLDADR 


NEW B.P. 


00507A 


1AAE 


BE 


51 


A 




LDX 


WORK2 




00508A 


1AB0 


25 


08 


1ABA 




BCS 


BPDIS7 


YES 


00509A 


1AB2 


Al 


10 


A 




CMP 


#$10 


NO, ESC? 


00510A 


1AB4 


27 


1A 


1AD0 




BEQ 


BPRET 


GET OUT 


00511A 


1AB6 


Al 


11 


A 




CMP 


#$11 


ENTER? 


00512A 


1AB8 


27 


0B 


1AC5 




BEQ 


BPDIS5 


GET NEXT B.P. 


00513A 


1ABA 


B6 


52 


A 


BPDIS7 


LDA 


ADDRH 


TOO BIG? 


00514A 


1ABC 


Al 


IF 


A 




CMP 


#PCMASK 




00515A 


1ABE 


22 


13 


1AD3 




BHI 


BPERR 


YES 
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00516A 

00517A 

00518A 

00519A 

00520A 

00521A 

00522A 

00523A 

00524A 

00525A 

00526A 

00527 

00528A 

00529 

00530 

00531 

00532 

00533 

00534 

00535 

00536 

00537 

00538 

00539 

00540A 

00541A 

00542A 

00543A 

00544A 

00545A 

00546A 

00547A 

00548A 

00549A 

00550A 

00551A 

00552A 

00553A 

00554A 

00555A 

00556A 

00557A 

00558A 

00559A 

00560A 

00561A 

00562A 

00563A 

00564A 

00565A 

00566A 

00567A 

00568A 

00569A 

00570A 

00571A 

00572A 

00573A 



1AC0 F7 
1AC1 B6 53 
1AC3 E7 01 
1AC5 5C 
1AC6 5C 
1AC7 5C 
1AC8 BF 51 
1ACA 3A 5A 
1ACC 26 B3 
1ACE 20 A8 
1AD0 CC 18AB 

1AD3 CC 1E97 



1AD6 
1AD9 
1ADB 
1ADD 
1ADF 
1AE1 
1AE3 
1AE5 
1AE7 
1AE9 
1AEC 
1AEF 
1AF1 
1AF4 
1AF6 
1AF8 
1AFA 
1AFC 
1AFE 
1AFF 
1B00 
1B01 
1B02 
1B04 
1B06 
1B08 
1B0A 
1B0C 
1B0D 
1B10 
1B12 
1B13 
1B15 
1B17 



1AD6 

CD 1DF5 

A6 F4 

B7 49 

A6 Dl 

B7 4A 

A6 D0 

B7 4B 

A6 60 

B7 4C 

CD 1DFD 

CD 1DD3 

BF 51 

CD 1F49 

25 12 
Al 11 

26 34 
A6 FF 
BE 51 
F7 

5C 
5C 
5C 

3A 5A 

26 F8 

20 26 

Al 03 

24 C7 
97 

D6 1E87 

B7 4E 
4F 

A0 03 

AB 03 
5A 



A 
A 



A 
A 

1A81 
1A78 
A 



STA 


, X 


XT t~\ CPHDIT 

NU,bl UKt 


LDA 


ADDRL 




STA 


i,x 




INCX 




GET NEXT 


INCX 






INCX 






STX 


W0RK2 




DEC 


PNCNT 




BNE 


BPDIS1 


DONE? 


BRA 


BPDIS 


YES START 


JMP 


GETCMD 





BPERR JMP ERROR 
* 

**************************************** 

* * 

* BREAKPOINT CLEAR * 

* * 

* TYPE # FOR SINGLE * 

* CLEAR AND ENT FOR ALL * 

* * 
**************************************** 
* 



PRINT ' BCLR ' 



A 


BPCLR 


EQU 


* 


A 




JSR 


CLRTAB 


A 




LDA 


#$F4 


A 




STA 


DTABL 


A 




LDA 


#$D1 


A 




STA 


DTABL+1 


A 




LDA 


#$D0 


A 




STA 


DTABL+2 


A 




LDA 


#$60 


A 




STA 


DTABL+3 


A 




JSR 


DISTAB 


A 




JSR 


SCNBKP 


A 




STX 


WORK2 


A 




JSR 


GETNYB 


1B08 




BCS 


BPCLR1 


A 




CMP 


#$11 


1B2E 




BNE 


BPCRET 


A 




LDA 


#$FF 


A 




LDX 


WORK2 




BPCLR2 


STA 
INCX 
INCX 
INCX 


0,X 


A 




DEC 


PNCNT 


1AFE 




BNE 


BPCLR2 


1B2E 




BRA 


BPCRET 


A 


BPCLR1 


CMP 


#NUMBKP 


1AD3 




BHS 
TAX 


BPERR 


A 




LDA 


CTABL , X 


A 




STA 
CLRA 


DTABL+5 


A 




SUB 


#3 


A 


BPCLR3 


ADD 
DECX 


#3 



FIND B.P. TABLE 



ENTER? 
NO 

YES, CLEAR ALL 



VALID B.P. #? 

NO 

YES 

PRINT B.P. # 
FIND IT 
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00574A 

00575A 

00576A 

00577A 

00578A 

00579A 

00580A 

00581A 

00582A 

00583A 

00584A 

00585A 

00586 

00587 

00588 

00589 

00590 

00591 

00592 

00593 

00594 

00595 

00596 

00597A 

00598A 

00599A 

00600A 

00601A 

00602A 

00603A 

00604A 

00605A 

00606A 

00607A 

00608A 

00609A 

00610A 

00611A 

00612A 

00613A 

00614A 

00615A 

00616A 

00617A 

00618A 

00619A 

00620A 

00621A 

00622A 

00623A 

00624A 

00625A 

00626A 

00627A 

00628A 

00629A 

00630A 

00631A 



1B18 
1B1A 
1B1C 
1B1F 
1B22 
1B24 
1B26 
1B28 
1B2A 
1B2B 
1B2D 
1B2E 



2A FB 
B7 57 
CD 1DFD 
CD 1E5F 
Al 11 
26 08 
A6 37 
BB 57 
97 

A6 FF 
F7 

CC 18AB 



1B31 CD 
1B34 E6 
1B36 A4 
1B38 B7 
1B3A E6 
1B3C B7 
1B3E E6 
1B40 B7 
1B42 CD 
1B45 Al 
1B47 26 
1B49 B6 
1B4B AB 
1B4D E7 
1B4F B6 
1B51 A9 
1B53 E7 
1B55 CC 
1B58 Al 
1B5A 26 
1B5C E6 
1B5E AA 
1B60 E7 
1B62 B6 
1B64 AB 
1B66 E7 
1B68 B6 
1B6A A9 
1B6C E7 
1B6E CC 
1B71 Al 
1B73 26 
1B75 3F 
1B77 E6 
1B79 A4 



1B31 

1916 

04 

08 

57 

07 

52 

08 

53 

1F15 

83 

0F 

53 

01 

08 

52 

00 

07 

1928 

9B 

15 

04 

08 

04 

53 

01 

08 

52 

00 

07 

1928 

9A 

02 

57 

04 

F7 



1B15 


BPL 


BPCLR3 




A 


STA 


W0RK6 




A 


JSR 


DISTAB 


PRINT 


A 


JSR 


CHRIN 




A 


CMP 


#$11 


CLEAR 


1B2E 


BNE 


BPCRET 


NO 


A 


LDA 


#BKPTBL 


YES 


A 


ADD 


W0RK6 






TAX 






A 


LDA 


#$FF 






STA 


0,X 




A 


BPCRET JMP 


GETCMD 





r*************************** 

* 

TRACE ONE INSTRUCTION * 

* 

TIMER INTERRUPT IS 
USED 



*************! 
* 
* 
* 
* 

* USED * 

* * 

**************************************** 



A 


TRACE 


EQU 


* 




A 




JSR 


LOCSTK 


FIND S.P. 


A 




LDA 


4,X 
#8 




A 




AND 




A 




STA 


WORK6 




A 




LDA 


7 , X 




A 




STA 


ADDRH 




A 




LDA 


8,X 




A 




STA 


ADDRL 




A 




JSR 


LOAD 


GET OPCODE 


A 




CMP 


#$83 


SWI? 


1B58 




BNE 


TRACE 3 




A 




LDA 


ADDRL 


YES 


A 




ADD 


#1 


INC PC 


A 




STA 


8,X 




A 




LDA 


ADDRH 




A 




ADC 


#0 




A 




STA 


7,X 




A 




JMP 


PCOUNT 




A 


TRACE3 


CMP 


#$9B 


SEI? 


1B71 




BNE 


TRACE 2 




A 




LDA 


4,X 


YES 


A 




ORA 


#8 


SET IT IN 


A 




STA 


4,X 


STACK 


A 




LDA 


ADDRL 




A 




ADD 


#1 




A 




STA 


8 ,X 




A 




LDA 


ADDRH 




A 




ADC 


#0 




A 
A 




STA 
JMP 


7 , X 

PCOUNT 




A 


TRACE2 


CMP 


#$9A 


CLI? 


1B77 




BNE 


TRACE 1 




A 




CLR 


WORK6 


YES, CLEAR IT ON 


A 


TRACE1 


LDA 


4,X 


GET COND. CODE 


A 




AND 


#$F7 


CLEAR IRQ BIT 
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00632A 


1B7B 


E7 


04 


A 




STA 


4,X 


RETURN TO STAi 


00633A 


1B7D 


A6 


10 


A 




LDA 


#16 




00634A 


1B7F 


B7 


08 


A 




STA 


TIMER 




00635A 


1B81 


A6 


08 


A 




LDA 


#8 




00636A 


1B83 


B7 


09 


A 




STA 


TIMEC 




00637A 


1B85 


80 








RTI 




EXECUTE 


00638 










* 








00639 










************************************ 


00640 










* 








00641 










* 




SET CURRENT TIME 


00642 










* 




USING MC146818 


00643 










* 








00644 










* 




12-HOUR 


FORMAT 


00645 










* 








00646 










************************************ 


00647 










* 








00648 






1B86 


A 


STIME 


EQU 


* 




00649A 


1B86 


CD 


1DF5 


A 




JSR 


CLRTAB 




00650A 


1B89 


A6 


77 


A 




LDA 


#$77 


AM BY DEFAULT 


00651A 


1B8B 


B7 


4E 


A 




STA 


DTABL+5 




00652A 


1B8D 


3F 


53 


A 




CLR 


ADDRL 




00653A 


1B8F 


3F 


52 


A 




CLR 


ADDRH 




00654A 


1B91 


CD 


1FB0 


A 


STIME2 


JSR 


PRTADR 




00655A 


1B94 


CD 


1F49 


A 




JSR 


GETNYB 


GET INPUT 


00656A 


1B97 


25 


12 


1BAB 




BCS 


STIMEl 




00657A 


1B99 


Al 


10 


A 




CMP 


#$10 


ESC? 


00658A 


1B9B 


27 


4F 


1BEC 




BEQ 


STMRET 




00659A 


1B9D 


Al 


11 


A 




CMP 


#$11 


ENT? 


00660A 


1B9F 


27 


ID 


1BBE 




BEQ 


STIME4 




00661A 


1BA1 


Al 


17 


A 




CMP 


#$17 


P? 


00662A 


1BA3 


26 


EC 


1B91 




BNE 


STIME2 




00663A 


1BA5 


A6 


73 


A 




LDA 


#$73 


YES, 


00664A 


1BA7 


B7 


4E 


A 




STA 


DTABL+5 


PRINT P 


00665A 


1BA9 


20 


E6 


1B91 




BRA 


STIME2 




00666A 


1BAB 


Al 


09 


A 


STIME1 


CMP 


#9 


GT 9? 


00667A 


1BAD 


22 


40 


1BEF 




BHI 


STERR 




00668A 


1BAF 


AE 


04 


A 




LDX 


#4 


SHIFT IN NEW 


00669A 


1BB1 


38 


53 


A 


STIME3 


LSL 


ADDRL 


INPUT 


00670A 


1BB3 


39 


52 


A 




ROL 


ADDRH 




00671A 


1BB5 


5A 








DECX 






00672A 


1BB6 


26 


F9 


1BB1 




BNE 


STIME3 




00673A 


1BB8 


BA 


53 


A 




ORA 


ADDRL 




00674A 


1BBA 


B7 


53 


A 




STA 


ADDRL 




00675A 


1BBC 


20 


D3 


1B91 




BRA 


STIME2 




00676A 


1BBE 


B6 


52 


A 


STIME4 


LDA 


ADDRH 


HOURS GT 12? 


00677A 


1BC0 


Al 


12 


A 




CMP 


#$12 




00678A 


1BC2 


22 


2B 


1BEF 




BHI 


STERR 




00679A 


1BC4 


4D 








TSTA 




HOURS EQ 0? 


00680A 


1BC5 


27 


28 


1BEF 




BEQ 


STERR 




00681A 


1BC7 


B6 


53 


A 




LDA 


ADDRL 


MIN? GT 59? 


00682A 


1BC9 


Al 


59 


A 




CMP 


#$59 




00683A 


1BCB 


22 


22 


1BEF 




BHI 


STERR 




00684A 


1BCD 


A6 


80 


A 




LDA 


#$80 


PUT IN 


00685A 


1BCF 


C7 


170B 


A 




STA 


CR2 


SET TIME MODE 


00686A 


1BD2 


4F 








CLRA 






00687A 


1BD3 


C7 


170A 


A 




STA 


CR1 




00688A 


1BD6 


04 


4E 02 


1BDB 




BRSET 


2, DTABL+5, STIME5 PM? 


00689A 


1BD9 


IE 


52 


A 




BSET 


7, ADDRH 


YES 
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00690A 


1BDB 


B6 


53 


A 


STIME5 


LDA 


ADDRL 


PUT TIME INTO 


00691A 


1BDD 


C7 


1702 


A 




STA 


MIN 


MC146818 


00692A 


1BE0 


B6 


52 


A 




LDA 


ADDRH 




00693A 


1BE2 


C7 


1704 


A 




STA 


HOUR 




00694A 


1BE5 


4F 








CLRA 






00695A 


1BE6 


C7 


170B 


A 




STA 


CR2 


ALLOW TO RUN 


00696A 


1BE9 


C7 


1700 


A 




STA 


SEC 


CLR SECONDS 


00697A 


1BEC 


CC 


18AB 


A 


STMRET 


JMP 


GETCMD 




00698 










* 








00699A 


1BEF 


CC 


1E97 


A 


STERR 


JMP 


ERROR 




00700 










* 








00701 










**************************************** 


00702 










* 






* 


00703 










* 




WAIT FOR 


THE END * 


00704 










* 




OF UPDATE CYCLE * 


00705 










* 






* 


00706 










**************************************** 


00707 










* 








00708A 
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1D59 


20 


EE 


1D49 




BRA 


LODBY2 




00928A 


1D5B 


BE 


50 


A 


LODBYR 


LDX 


WORK1 




00929A 


1D5D 


81 








RTS 






00930 










* 








00931A 


1D5E 


B7 


51 


A 


EDGE 


STA 


WORK 2 




00932A 


1D60 


BF 


54 


A 




STX 


WORK3 




00933A 


1D62 


5F 








CLRX 






00934A 


1D63 


5C 






EDGE1 


INCX 




LOOP TILL 


00935A 


1D64 


4F 








CLRA 




TRANSITION 


00936A 


1D65 


2E 


01 


1D68 




BIL 


EDGE2 




00937A 


1D67 


4C 








INCA 






00938A 


1D68 


Bl 


5C 


A 


EDGE2 


CMP 


SREF 




00939A 


1D6A 


27 


F7 


1D63 




BEQ 


EDGE1 




00940A 


1D6C 


B7 


5C 


A 




STA 


SREF 


UPDATE LEVEL 


00941A 


1D6E 


9F 








TXA 




STATUS 


00942A 


1D6F 


B0 


5D 


A 




SUB 


LCNT 


SET CARRY FOR 


00943A 


1D71 


B6 


51 


A 




LDA 


WORK2 


1 OR 


00944A 


1D73 


BE 


54 


A 




LDX 


WORK3 




00945A 


1D75 


81 








RTS 






00946 










* 








00947A 


1D76 


AD 


C5 


1D3D 


LOAD IT 


BSR 


LOADBY 


GET BYTE 


00948A 


1D78 


B7 


55 


A 




STA 


WORK4 


AND UPDATE 


00949A 


1D7A 


BB 


5B 


A 




ADD 


CHKSUM 


CHECKSUM 


00950A 


1D7C 


B7 


5B 


A 




STA 


CHKSUM 




00951A 


1D7E 


B6 


55 


A 




LDA 


WORK 4 




00952A 


1D80 


81 








RTS 






00953 










* 








00954 










**************************************** 


00955 










* 






* 


00956 










* 




VERIFY TAPE * 


00957 










* 






* 


00958 










**************************************** 


00959 










* 








00960 






1D81 


A 


VERIFY 


EQU 


* 




00961A 


1D81 


1A 


4F 


A 




BSET 


5,SWIFLG 




00962A 


1D8 3 


CD 


1E07 


A 




JSR 


CLRDIS 




00963A 


1D86 


CC 


1CE2 


A 




JMP 


LOAD0 




00964 










* 








00965A 


1D89 


CC 


1E97 


A 


GOERR 


JMP 


ERROR 




00966 










* 








00967A 


1D8C 


CC 


18AB 


A 


GOBACK 


JMP 


GETCMD 




00968 


















00969 






1D8F 


A 


GO 


EQU 


* 




00970A 


1D8F 


CD 


1916 


A 




JSR 


LOCSTK 




00971A 


1D92 


E6 


08 


A 




LDA 


8,X 




00972A 


1D94 


B7 


53 


A 




STA 


ADDRL 




00973A 


1D96 


E6 


07 


A 




LDA 


7 , X 




00974A 


1D98 


B7 


52 


A 




STA 


ADDRH 




00975A 


1D9A 


CD 


1F53 


A 




JSR 


GETADR 




00976A 


1D9D 


25 


08 


1DA7 




BCS 


GOON 


ADDR VALID? 


00977A 


1D9F 


Al 


10 


A 




CMP 


#$10 




00978A 


1DA1 


27 


E9 


1D8C 




BEQ 


GOBACK 




00979A 


1DA3 


Al 


11 


A 




CMP 


#$11 
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00980A 1DA5 26 E2 
00981A 1DA7 CD 1916 
00982A 1DAA B6 52 
00983A 1DAC Al IF 
00984A 1DAE 22 D9 
00985A 1DB0 E7 07 
00986A 1DB2 B6 53 
00987A 1DB4 E7 08 
00988A 1DB6 AD IB 
00989A 1DB8 F6 
00990A 1DB9 2B 10 
00991A 1DBB B7 52 
00992A 1DBD E6 01 
00993A 1DBF B7 53 
00994A 1DC1 CD 1F15 
00995A 1DC4 E7 02 
00996A 1DC6 A6 83 
00997A 1DC8 CD 1F24 
00998A 1DCB 5C 
00999A 1DCC 5C 
01000A 1DCD 5C 
01001A 1DCE 3A 5A 
01002A 1DD0 26 E6 
01003A 1DD2 80 
01004 

01005 1DD3 

01006A 1DD3 A6 03 

01007A 1DD5 B7 5A 

01008A 1DD7 AE 37 

01009A 1DD9 81 

01010 

01011 

01012 

01013 

01014 

01015 

01016 

01017 1DDA 
01018A 1DDA A6 B5 
01019A 1DDC B7 4D 
01020A 1DDE A6 73 
01021A 1DE0 B7 4E 
01022A 1DE2 4F 
01023A 1DE3 5F 
01024A 1DE4 CD 1F8E 
01025A 1DE7 CD 1916 
01026A IDEA 9F 
01027A 1DEB AB 03 
01028A 1DED AE 02 
01029A 1DEF CD 1F8E 
01030A 1DF2 CC 18B5 
01031 



1D89 




BNE 


GOERR 




A 


GOON 


JSR 


LOCSTK 


YES PUT IT 


A 




LDA 


ADDRH 


IN STACK 


A 




CMP 


#PCMASK 


TO BIG? 


1D89 




BHI 


GOERR 


YES 


A 




STA 


7,X 




A 




LDA 


ADDRL 




A 




STA 


8 ,X 




1DD3 


CONT 


BSR 


SCNBKP 


FIND B.P. TABL 




GOINSB 


LDA 


x 


INSERTPB P 'S 






RMT 


CONOR 


VAT TD^ 


A 




STA 


ADDRH 


YES 


A 




LDA 


i,x 




A 




STA 


ADDRL 




A 






r HAD 


caup oprnnF 

jnv D ur^uuL 


A 




STA 


2 X 




A 




T DA 


tf O rv J. \J tr 




A 
r\ 




O On 








o UN UD 


1 IN ^ A 




PPT MPYT R D 






INCX 










INCX 






A 




DEC 


PNCNT 




1DB8 




BNE 


GOINSB 


DONE? 




* 


RTI 




YES 


A 


SCNBKP 


EQU 


* 




A 




LDA 


#NUMBKP 




A 




STA 


PNCNT 




A 




LDX 


#BKPTBL 








RTS 








* 










************************************* 




* 
* 


DISPLAY 


STACK 


POINTER 




************************************* 


A 


STACK 


EQU 


* 




A 




LDA 


#$B5 


PRINT 


A 




STA 


DTABL+4 


•SP' 


A 




LDA 


#$73 




A 




STA 


DTABL+5 








CLRA 










CLRX 






A 




JSR 


PRTBYT 




A 




JSR 


LOCSTK 


FIND USER 






TXA 




STACK POINTER 


A 




ADD 


#3 




A 




LDX 


#2 




A 




JSR 


PRTBYT 


PRINT IT 


A 




JMP 


CMDSCN 





* 
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01033 










* 




01034 










**************************************** 


01035 










* 


* 


01036 










* 


CLEAR DISPLAY TABLE * 


01037 










* 


* 


01038 










* 


X REG DESTROYED * 


01039 










* 


* 


01040 










**************************************** 


01041 










* 




01042A 


1DF5 


AE 


05 


A 


CLRTAB 


LDX #5 


1043A 


1DF7 


6F 


49 


A 


CLRLOC 


CLR DTABL , X CLEAR SIX 


01044A 


1DF9 


5A 








DECX LOCATIONS IN 


01045A 


ID FA 


2A 


FB 


1DF7 




BPL CLRLOC DISPLAY TABLE 


01046A 


1DFC 


81 








RTS 


01047 










* 




01048 










**************************************** 


01049 










* 


* 


01050 










* 


DISPLAY TABLE CONTENTS * 


01051 










* 


* 


01052 










* 


A,X REGISTERS DESTROYED * 


01053 










* 


* 


01054 










**************************************** 


01055 










* 




01056A 


1DFD 


AE 


05 


A 


DISTAB 


LDX #5 


01057A 


1DFF 


E6 


49 


A 


DISCHR 


LDA DTABL, X LOAD DISPLAY 


01058A 


1E01 


AD 


09 


1E0C 




BSR DISPLY TABLE INTO 


01059A 


1E03 


5A 








DECX 145000 


01060A 


1E04 


2A 


F9 


1DFF 




BPL DISCHR 


01061A 


1E06 


81 








RTS 


01062 










* 




01063 










**************************************** 


XJ -L XJ \J *4 










* 


* 


01065 










* 


BLANK DISPLAY * 


01066 










* 


* 


01067 










* 


A,X REGISTERS DESTROYED * 


01068 










* 


* 


PI 1 PlfiQ 

1W J. 1U vj _7 










**************************************** 


01070 










* 




CI 1 017 1 A 


1 FPI7 

X Cj V 1 






J. u r j 


CLRDIS 


BSR CLRTAB BLANK 


1072A 


1E09 


AD 


F2 


1DFD 




BSR DISTAB DISPLAY 


1073A 


1E0B 


81 








RTS 


01074 










* 




01075 










**************************************** 


01076 










* 


* 


01077 










* 


SHIFT ONE CHARACTER INTO * 


01078 










* 


DISPLAY * 


01079 










* 


* 


01080 










* 


A REGISTER DESTROYED * 


01081 










* 


* 


01082 










**************************************** 


01083 










* 




01084A 


1E0C 


BF 


50 


A 


DISPLY 


STX WORK1 SAVE INDEX 


01085A 


1E0E 


ID 


00 


A 




BCLR 6, PORTA CLEAR DATA 


01086A 


1E10 


AE 


08 


A 




LDX #8 


01087A 


1E12 


48 






DIS1 


LSLA SET UP 


01088A 


1E13 


24 


02 


1E17 




BCC DIS2 BIT OF 


01089A 


1E15 


1C 


00 


A 




BSET 6, PORTA ACCUMULATOR 


01090A 


1E17 


IE 


00 


A 


DIS2 


BSET 7, PORTA CLOCK 
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01091A 


1E19 


IF 


00 


A 




BCLR 


7 , PORTA 


IT 


01092A 


1E1B 


ID 


00 


A 




BCLR 


6, PORT A 


CLEAR DATA 


01093A 


1E1D 


5A 








DECX 




COMPLETE? 


01094A 


1E1E 


26 


F2 


1E12 




BNE 


DIS1 


NO 


01095A 


1E20 


BE 


50 


A 




LDX 


WORK1 


RESTORE INDEX 


01096A 


1E22 


81 








RTS 






01097 










* 








01098 










**************************************** 


01099 










* 






* 


01100 










* 


KEYPAD 


SCAN 


* 


01101 










* 






* 


01102 










* 


X REGISTER DESTROYED * 


01103 










* 






* 


01104 










* 


A REGISTER CONTAINS VALUE * 


01105 










* 






* 


01106 










* 


CARRY 


SET IF VALID OUTPUT * 


01107 










* 






* 


01108 










**************************************** 


01109 










* 








01110A 


1E23 


98 






KEYSCN 


CLC 






01111A 


1E24 


4F 








CLRA 






01112A 


1E25 


AE 


06 


A 




LDX 


#6 


SETUP 


01113A 


1E27 


AB 


10 


A 


KEY1 


ADD 


#$10 


ROW 


01114A 


1E29 


B7 


00 


A 




STA 


PORTA 




01115A 


1E2B 


AD 


06 


1E33 




BSR 


COLUMN 


CHECK COLUMNS 


01116A 


1E2D 


25 


03 


1E32 




BCS 


KEY2 


IF VALID GET OUT 


01117A 


1E2F 


5A 








DECX 




ELSE TRY 


01118A 


1E30 


26 


F5 


1E27 




BNE 


KEY1 


NEXT ROW 


01119A 


1E32 


81 






KEY2 


RTS 






01120 










* 








01121 










**************************************** 


01122 










* 






* 


01123 










* 


CHECK 


FOR KEY 


CLOSURE * 


01124 










* 


WITHIN 


COLUMN 


AND DEBOUNCE * 


01125 










* 






* 


01126 










* 


A REGISTER CONTAINS VALUE * 


01127 










* 






* 


01128 










* 


CARRY 


SET IF VALID OUTPUT * 


01129 










* 






* 


01130 










**************************************** 


01131 










* 








01132A 


1E33 


B6 


00 


A 


COLUMN 


LDA 


PORTA 


READ KEYPAD 


01133A 


1E35 


B7 


50 


A 




STA 


WORK1 


STORE IT 


01134A 


1E37 


A5 


0F 


A 




BIT 


#$0F 


KEY CLOSED? 


01135A 


1E39 


27 


19 


1E54 




BEQ 


COLRET 


NO GET OUT 


01136A 


1E3B 


AD 


18 


1E55 




BSR 


DBOUNC 


ELSE DEBOUNCE 


01137A 


1E3D 


B6 


00 


A 




LDA 


PORTA 


RE-READ KEYPAD 


01138A 


1E3F 


Bl 


50 


A 




CMP 


WORK1 


SAME KEY CLOSED? 


01139A 


1E41 


26 


11 


1E54 




BNE 


COLRET 


NO GET OUT 


01140A 


1E43 


99 








SEC 




SET FLAG FOR VALID 


01141A 


1E44 


B6 


00 


A 


COL1 


LDA 


PORTA 


KEY 


01142A 


1E46 


A5 


0F 


A 




BIT 


#$0F 


RELEASED? 


01143A 


1E48 


26 


FA 


1E44 




BNE 


COL1 


NO TRY AGAIN 


01144A 


1E4A 


AD 


09 


1E55 




BSR 


DBOUNC 


YES DEBOUNCE 


01145A 


1E4C 


B6 


00 


A 




LDA 


PORTA 


STILL 


01146A 


1E4E 


A5 


0F 


A 




BIT 


#$0F 


RELEASED? 


01147A 


1E50 


26 


F2 


1E44 




BNE 


COL1 


NO TRY AGAIN 


01148A 


1E52 


B6 


50 


A 




LDA 


WORK1 


RETURN CHAR IN A-REG 
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01149A 


1E54 


81 






COLRET 


RTS YES GO HOME 


01150 










* 




01151 










**************************************** 


01152 










* 


* 


01153 










* 


PAUSE FOR 3075 CYCLES * 


01154 










* 


* 


01155 










* 


A REGISTER DESTROYED * 


01156 










* 


* 


01157 










**************************************** 


01158 










* 




01159A 


1E55 


A6 


FF 


A 


DBOUNC 


LDA #$FF PAUSE 


01160A 


1E57 


21 


FE 


1E57 


DLOOP 


BRN * 256X12 


01161A 


1E59 


21 


FE 


1E59 




BRN * CYCLES 


01162A 


1E5B 


4A 








DECA OR AT 


01163A 


1E5C 


26 


F9 


1E57 




BNE DLOOP LEAST 


01164A 


1E5E 


81 








RTS 3.7 MS 


01165 










* 
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01167 

01168 

01169 

01170 

01171 

01172 

01173 

01174 

01175 

01176 

01177 

01178 

01179A 

01180A 

01181A 

01182A 

01183A 

01184A 

01185A 

01186A 

01187A 

01188 

01189 

01190 

01191 

01192 

01193 

01194 

01195 



**************************************** 



* 
* 
* 
* 
* 
* 
* 



INPUT ONE CHARACTER 



A REGISTER CONTAINS HEX VALUE 



X REGISTER CONTAINS HEX VALUE 



* 
* 
* 
* 
* 
* 
* 



1E5F 
1E62 
1E64 
1E65 
1E68 
1E6A 
1E6B 
1E6D 
1E6E 



1E5F 
CD 1E23 
24 FB 
5F 

Dl 1E6F 
27 03 
5C 

20 F8 

9F 

81 



A 
A 

1E5F 
A 

1E6D 
1E65 



**************************************** 
* 

* 

KEYSCN 
CHRIN 



CHRIN 



GET KEY 

IF NOT VALID RETRY 



01220 
01221 
01222 
01223 
01224 



EQU 
JSR 
BCC 
CLRX 

CHRIN1 CMP STABL , X 

BEQ CHRIN2 
INCX 

BRA CHRIN1 
CHRIN2 TXA 
RTS 

* 

**************************************** 

* * 

* CONVERSION TABLE FOR KEYPAD * 

* TO HEX NUMBER * 

* * 
**************************************** 
* 



CONVERT 
TO HEX 



IF CANCEL 



01196A 


1E6F 


11 


A STABL 


FCB 


$11 





01197A 


1E70 


21 


A 


FCB 


$21 


1 


01198A 


1E71 


22 


A 


FCB 


$22 


2 


01199A 


1E72 


24 


A 


FCB 


$24 


3 


01200A 


1E73 


31 


A 


FCB 


$31 


4 


01201A 


1E74 


32 


A 


FCB 


$32 


5 


01202A 


1E75 


34 


A 


FCB 


$34 


6 


01203A 


1E76 


41 


A 


FCB 


$41 


7 


01204A 


1E77 


42 


A 


FCB 


$42 


8 


01205A 


1E78 


44 


A 


FCB 


$44 


9 


01206A 


1E79 


48 


A 


FCB 


$48 


A 


01207A 


1E7A 


38 


A 


FCB 


$38 


B 


01208A 


1E7B 


28 


A 


FCB 


$28 


C 


01209A 


1E7C 


18 


A 


FCB 


$18 


D 


01210A 


1E7D 


14 


A 


FCB 


$14 


E 


01211A 


1E7E 


12 


A 


FCB 


$12 


F 


01212A 


1E7F 


61 


A 


FCB 


$61 


CANCEL COMMAND 


01213A 


1E80 


58 


A 


FCB 


$58 


ENTER COMMAND 


01214A 


1E81 


68 


A 


FCB 


$68 


STACK POINTER 


01215A 


1E82 


64 


A 


FCB 


$64 


MEMORY 


01216A 


1E83 


62 


A 


FCB 


$62 


GO 


01217A 


1E84 


54 


A 


FCB 


$54 


VERIFY TAPE 


01218A 


1E85 


52 


A 


FCB 


$52 


LOAD TAPE 


01219A 


1E86 


51 


A 


FCB 


$51 


PUNCH TAPE 



**************************************** 

* * 

* HEX TO MUX DISPLAY * 

* CONVERSION TABLE * 
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01225 








01226 








01227 








01228A 


1E87 




D7 


01229A 


1E88 




06 


01230A 


1E89 




E3 


01231A 


1E8A 




A7 


01232A 


1E8B 




36 


01233A 


1E8C 




B5 


01234A 


1E8D 




F5 


01235A 


1E8E 




07 


01236A 


1E8F 




F7 


01237A 


1E90 




B7 


01238A 


1E91 




77 


01239A 


1E92 




F4 


01240A 


1E93 




Dl 


01241A 


1E94 




E6 


01242A 


1E95 




Fl 


01243A 


1E96 




71 


01244 








01245 






1E97 


01246A 


1E97 


CD 


1DF5 


01247A 


1E9A 


A6 


Fl 


01248A 


1E9C 


B7 


4A 


01249A 


1E9E 


A6 


60 


01250A 


1EA0 


B7 


4B 


01251A 


1EA2 


B7 


4C 


01252A 


1EA4 


CD 


1DFD 


01253A 


1EA7 


CC 


18B5 



* * 
**************************************** 
* 



A 


CTABL 


FCB 


$D7 





A 




FCB 


6 


1 


A 




FCB 


$E3 


2 


A 




FCB 


$A7 


3 


A 




FCB 


$36 


4 


A 




FCB 


$B5 


5 


A 




FCB 


$F5 


6 


A 




FCB 


7 


7 


A 




FCB 


$F7 


8 


A 




FCB 


$B7 


9 


A 




FCB 


$77 


A 


A 




FCB 


$F4 


B 


A 




FCB 


$D1 


C 


A 




FCB 


$E6 


D 


A 




FCB 


$F1 


E 


A 


* 


FCB 


$71 


F 


A 


ERROR 


EQU 


* 




A 




JSR 


CLRTAB 




A 




LDA 


#$F1 




A 




STA 


DTABL+1 




A 




LDA 


#$60 




A 




STA 


DTABL+2 




A 




STA 


DTABL+3 




A 




JSR 


DISTAB 




A 




JMP 


CMDSCN 
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01255 * 

01256 **************************************** 

01257 * * 

01258 * MEMORY EXAMINE/CHANGE * 

01259 * * 

01260 **************************************** 

01261 * 



1 26 ?A 


1 FAA 


CD 


1F53 




MFMFX 


JSR 


GETADR 


BUILD ADDRESS 


XJ X Z U J/\ 


1 FAD 


Al 

t\ X 


1 

X XJ 


A 




CMP 


*$ 1 

IT V X YJ 




o\ l 9 £ ,4 a 

10 X ZO *iA 


1 pair 


97 


CP 

jr 


1 F 1 CI 
i r i yj 




D Cj \J 


MFMFX 4 




019 R A 


1 FR1 


B7 


50 




MFMFX3 


STA 


W0RK1 




10 IZDOn 


1 PR'! 


Rfi 

DO 


R9 

D Z 


a 




t na 


ADDRH 




WlZD / A 


IEjB O 


Al 


1 P 

xr 


A 

A 




PMP 

\- rl tr 


4 PPMA 
if ir ^ rl A D J\ 






1 Ej CW 


9 9 
z J 


01 7 
10 j 


1 FRP 




DLD 


MEMOK 




fit 1 *)CQA 

10 X Z O y A 


1 PDQ 




x Ej y / 


A 
A 




TMD 

U 1*1 r 


Ej r\r\w t\ 




10 1 Z / 10 A 


1 P D/** 

ItBL 


BO 


Q (A 


A 
A 


rltji v HJr\ 


t na 


WUnft X 




1271A 


1EBE 


CD 


IF 1 b 


A 




TOD 

JbK 


r n a n 


LUAU DAJ.A 


1272A 


1EC1 


CD 


1 T-» O f 

lFoC 


A 

A 




TOD 

JbK 


rKl JJA 1 


DDT MT TT 

rKl N 1 11 


1273A 


1EC4 


CD 


1F49 


A 




JSR 


P DTMVD 


p pm MPM MTDDT P 

Cjh.1 NhW NIBBLE, 


fit 1 O "7 >l A 

1 Z / 4A 


1 I? *7 




IV) 


A 

A 






# ^ 1 01 
ff 9 1 V) 




a 1 9 *7 c A 

10 X Z / DA 




9 7 
z / 




1 P T (51 

1 r 1 W 






MP M P Y A 
MEjrlEj A ft 




fit 1 9 "7 £ A 

10 x Z / OA 


ILLb 


A 1 
Al 


1 1 


A 
A 




PUD 


ff 9 1 X 




10 X Z / / A 


1 ppn 
± CiV-LI 


97 
z / 


1 Q 
1 J 


1 PPO 
1 Ej Ej o 




□ pn 


nUn X IN ^ 




01 1 9 *7 Q A 
10 XZ / OA 


1 PPP 


Al 


1 J 


A 
A 




PMD 






01 1 

10 x z / yA 


i pm 


Z / 


on 

ZD 


1 C 01 01 
1 r V) Y) 




dpa 

Dtjy 


a npn P C* 




01 1 9 ft 7a 
v X Z O 10 A 


J. CjLf J 


Z *i 


(713 


i Fnn 






pMnMnr 

IMi^I'liV l—i 


TF VAT TD 


fill OQ 1 A 

10 1 Z O 1 A 


1 EiD D 


LU 


1 pop 
lr OL 


A 

A 


n Ei n Hi a x 


TCD 

J on 




lr f \ X IN 1 XI 


fit n 9 Q 9 A 
10 X Z O ZA 


1 p t~iQ 


rri 
LD 


1 POT 

lr j 1 


A 

A 




JbK 


P PTRV 9 
LjEj 1 ES I Z 


QHTPT TM MPYT 

onxri xiN inEjAI 


fit I OQOR 
10 X Zo OA 


1 pnn 

XtLUD 


9 

Z D 


FP 


i Fn^ 

1 EjJJ 3 






MPMP Y 1 

1*1 Ej 1*1 Ej A X 


TP Var TD TRY APATN 


01 1 9 P 4 
10 X Z O fi 














ff v x x 




fit 1 9 p C A 
10 X Z o DA 


IEjIJD 


a i 

Al 


1 1 


A 
A 


K^rlDriU Li 




FMTPR 9 

Ej JN 1 Ej [\ ■ 


01 1 OQC A 
10 X Z o A 


t php 


9 £ 
ZO 


1 D 


1 PP£ 
1 Ej r 




DM]? 
DIN 1_j 


MPM P Y 9 

™1 Ej 1*1 Ej A Z 




01 1 

10 1 Z O / A 


1 Ej Ej 1 


DC 

no 


Dl 


A 

A 




t n a 

LiU A 


UTPiDK - 9 


ppctorp appa 


01 1 9 Q Q a 
10 X Z O O A 


1 Ej Ej -5 


1~1J 


1 P 9 / 
1 r z <i 


A 

A 




TCD 
J3K 


CTf)R P 


VPQ QTfjRP TT 

XEiO u i Ui\1j XI 


01 1 9 ft Q a 
10 X Z O y A 


1 FFfi 

1 E» Ej D 


9R 
Z J 




1 Ej D 1 




D\^ O 


MPMP Y 7 

1*1 Cj 1*1 Ej A ~J 


c^TORF VaT TD9 


01 1 9 Q0ia 
10 X Z y 10 A 


1 F Ffi 
JL Ej Ej o 




AV 9^ 


1 pi n 
ir IB 


a np T MP 


DnOu 1 


f. cutt Pr p 


MPMP Yd 

f 1*1 Ej 1*1 Ej A H 


fit 1 OQl A 

izy xa 


l p p d 
1EEB 


9 r» 




A 




T MP 
INC 


AUJJKL 


IEjO LjUIIU 


0( 1 9 Q 9 A 

w i z y za 


1 E. E.1J 


9 £ 
ZO 


I7i 9 
M Z 


1 dpi 
Ibr 1 






M P M P Y Q 
n IjP'IEj A D 


JN EjA 1 


fit 1 9 Q 9 A 

w i z y j a 


ItitC 




c o 
OZ 


A 

A 




T MP 


AlJUKn 




01294A 


1EF1 


CD 


1FB0 


A 


MEMEX5 


JSR 


PRTADR 


PRINT IT 


01295A 


1EF4 


20 


BB 


1EB1 




BRA 


MEMEX3 


REPEAT 


01296A 


1EF6 


Al 


13 


A 


MEMEX 2 


CMP 


#$13 


MEMORY? 


01297A 


1EF8 


26 


16 


1F10 




BNE 


MEMEX4 


NO 


01298A 


IE FA 


B6 


51 


A 




LDA 


WORK 2 




01299A 


1EFC 


AD 


26 


1F24 




BSR 


STORE 




01300A 


1EFE 


25 


Bl 


1EB1 




BCS 


MEMEX3 




01301A 


1F00 


0C 


4F 0D 


1F10 


ADRDEC 


BRSET 


6, SWIFLG 


, MEMEX4 


01302A 


1F03 


3D 


53 


A 




TST 


ADDRL 


YES THEN 


01303A 


1F05 


26 


02 


1F09 




BNE 


CMDMB2 


GET PREVIOUS 


01304A 


1F07 


3A 


52 


A 




DEC 


ADDRH 


ADDRESS 


01305A 


1F09 


3A 


53 


A 


CMDMB2 


DEC 


ADDRL 




01306A 


1F0B 


CD 


1FB0 


A 




JSR 


PRTADR 


PRINT IT 


01307A 


1F0E 


20 


Al 


1EB1 




BRA 


MEMEX3 


REPEAT 


01308A 


1F10 


ID 


4F 


A 


MEMEX4 


BCLR 


6, SWIFLG 


INVALID CHAR 


01309A 


1F12 


CC 


18AB 


A 




JMP 


GETCMD 





01310 * 

**************************************** 

01312 * * 



37 



PAGE 026 CBUG05 .SA:1 



01313 










* 


LOAD 


BYTE AT 


ADDRH, ADDRL * 


01314 










* 


INTO 


ACCUMULATOR * 


01315 










* 






* 


01316 










**************************************** 


01317 










* 








01318A 


1F15 


BF 


50 


A 


LOAD 


STX 


WORK1 


SETUP 


01319A 


1F17 


AE 


C6 


A 




LDX 


#$C6 


ROUTINE 


01320A 


1F19 


BF 


51 


A 


LDSTCM 


STX 


WORK 2 


TO DO 


01321A 


1F1B 


AE 


81 


A 




LDX 


#$81 


TWO BYTE 


01322A 


1F1D 


BF 


54 


A 




STX 


WORK 3 


LOAD 


01323A 


1F1F 


BD 


51 


A 




JSR 


WORK 2 




01324A 


1F21 


BE 


50 


A 




LDX 


WORK1 




01325A 


1F23 


81 








RTS 






01326 










* 








01327 










**************************************** 


01328 










* 






* 


01329 










* 


STORE 


ACCUMULATOR INTO * 


01330 










* 


BYTE 


AT ADDRH 


, ADDRL * 


01331 










* 






* 


01332 










**************************************** 


01333 










* 








01334A 


1F24 


BF 


50 


A 


STORE 


STX 


WORK1 




01335A 


1F26 


AE 


C7 


A 




LDX 


#$C7 


SETUP 


01336A 


1F28 


AD 


EF 


1F19 




BSR 


LDSTCM 


ROUTINE 


01337A 


1F2A 


B7 


55 


A 




STA 


WORK4 


TO DO 


01338A 


1F2C 


CD 


1F15 


A 




JSR 


LOAD 


TWO BYTE 


01339A 


1F2F 


Bl 


55 


A 




CMP 


WORK 4 


STORE 


01340A 


1F31 


27 


01 


1F34 




BEQ 


STRTS 




01341A 


1F33 


99 








SEC 






01342A 


1F34 


BE 


50 


A 


STRTS 


LDX 


WORK1 




01343A 


1F36 


81 








RTS 






01344 










* 
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01346 

01347 

01348 

01349 

01350 

01351 

01352 

01353 

01354 

01355A 

01356A 

01357A 

01358A 

01359A 

01360A 

01361A 

01362A 

01363A 

01364A 

01365 

01366 

01367 

01368 

01369 

01370 

01371 

01372 

01373 

01374 

01375 

01376 

01377 

01378 

01379A 

01380A 

01381A 

01382A 

01383A 

01384A 

01385 

01386 

01387 

01388 

01389 

01390 

01391 

01392 

01393 

01394 

01395 

01396 

01397 

01398A 

01399A 

01400A 

01401A 

01402A 

01403A 



1F37 B7 
1F39 AD 
1F3B 24 
1F3D 38 
1F3F 38 
1F41 38 
1F43 38 
1F45 BA 
1F47 99 
1F48 81 



51 
0E 
0B 
51 
51 
51 
51 
51 



1F49 CD 
1F4C 98 
1F4D Al 
1F4F 22 
1F51 99 
1F52 81 



1E5F 

0F 
01 



1F53 CD 
1F56 AD 
1F58 AD 
1F5A 25 
1F5C Al 
1F5E 27 



1DF5 

58 

EF 

0A 

10 

2B 



A 

1F49 
1F48 
A 
A 
A 
A 
A 



**************************************** 

* * 

* BUILD A BYTE * 

* * 

* A REGISTER CONTAINS BYTE * 

* * 
**************************************** 
* 

WORK 2 
GETNYB 
GETBRT 
WORK2 
WORK2 
WORK 2 
WORK2 
WORK 2 



A 

1F52 



GETBY2 STA 
BSR 
BCC 
ASL 
ASL 
ASL 
ASL 
ORA 
SEC 

GETBRT RTS 
* 

**************************************** 

* * 

* GET ONE CHARACTER AND * 

* CHECK FOR VALID HEX NUMBER * 

* * 

* A REGISTER CONTAINS OUTPUT * 

* * 

* X REGISTER DESTROYED * 

* * 

* CARRY SET IF VALID HEX NUMBER * 

* * 
**************************************** 
* 

GETNYB JSR CHRIN GET CHARACTER 
CLC 

CMP #$0F VALID HEX? 

BHI GETRET NO 

SEC YES 
GETRET RTS 
* 

**************************************** 



* 
* 
* 
* 
* 
* 
* 
* 
* 



BUILD ADDRESS 
A,X REGISTERS DESTROYED 
ADDRH , ADDRL CONTAIN ADDRESS 
CARRY SET IF NEW ADDRESS 



* 
* 
* 
* 
* 
* 
* 
* 
* 



A 

1FB0 
1F49 
1F66 
A 

1F8B 



**************************************** 
* 

GETADR JSR CLRTAB BLANK DISPLAY 

BSR PRTADR 

BLDADR BSR GETNYB GET CHARACTER 

BCS GETAD1 VALID HEX 

CMP #$10 

BEQ GETRTS 
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01487 
01488A 
01489 
01490A 
01491A 
01492 
01493 
01494A 
01495A 
01496A 
01497A 
01498A 
01499A 
01500A 
01501 
01502A 
01503A 
01504 
01505A 
01506 
01507A 
01508A 
01509A 
01510A 
01511A 
01512 
01513 
TOTAL 



1FC4 


80 






1FC5 


80 






1FC6 


80 










1FC7 


A 


1FC7 


A6 


40 


A 


1FC9 


B7 


09 


A 


1FCB 


CD 


1916 


A 


1FCE 


E6 


04 


A 


1FD0 


BA 


57 


A 


1FD2 


E7 


04 


A 


1FD4 


CC 


1928 


A 


1FD7 


CD 


1E07 


A 


1FDA 


8E 






1FF6 








1FF6 




0046 


A 


1FF8 




0043 


A 


1FFA 




0040 


A 


1FFC 




1856 


A 


1FFE 




1800 


A 



* 

IRQV 
TIRQV 



RTI 




RTI 




RTI 




EQU 


* 


LDA 


#$40 


STA 


TIMEC 


JSR 


LOCSTK 


LDA 


4 ,X 


ORA 


WORK 6 


STA 


4,X 


JMP 




JSR 


CLRDIS 


STOP 




ORG 


$1FF6 


FDB 


TIRQW 


FDB 


TIRQ 


FDB 


IRQ 


FDB 


SWI 


FDB 


RESET 


END 





ERRORS 00000-00000 
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01404A 


1F60 


Al 


11 


A 




CMP 


#$11 


NO ENTER? 


01405A 


1F62 


27 


27 


1F8B 




BEQ 


GETRTS 


NO TRY AGAIN 


01406A 


1F64 


20 


ED 


1F53 




BRA 


GETADR 




01407A 


1F66 


3F 


52 


A 


GETAD1 CLR 


ADDRH 


INIT HIGH ADDRESS 


01408A 


1F68 


B7 


53 


A 




STA 


ADDRL 


PUT CHAR AWAY 


01409A 


1F6A 


AD 


44 


1FB0 




BSR 


PRTADR 


PRINT NEW ADDRESS 


01410A 


1F6C 


AD 


DB 


1F49 


GET ALP 


BSR 


GETNYB 


GET ANOTHER CHAR 


01411A 


1F6E 


24 


12 


1F82 




BCC 


GETARG 


VALID? 


01412A 


1F70 


48 








AS LA 




YES 


01413A 


1F71 


48 








ASLA 




SHIFT IT IN 


01414A 


1F72 


48 








AST A 






01415A 


1F73 


48 








ASLA 






01416A 


1F74 


AE 


04 


A 




r nv 


#4 

IT ~ 




01417A 


1F76 


48 






GETASF 


ASLA 






01418A 


1F77 


39 


53 


A 




ROL 


ADDRL 




01419A 


1F79 


39 


52 


A 




ROL 


ADDRH 




01420A 


1F7B 


5A 








DECX 






01421A 


1F7C 


26 


F8 


1F76 




BNE 


GETASF 




01422A 


1F7E 


AD 


30 


1FB0 




BSR 


PRTADR 


PRINT NEW ADDR 


01423A 


1F80 


20 


EA 


1F6C 




BRA 


GETALP 


GET ANOTHER CHAR 


01424A 


1F82 


Al 


10 


A 


GETARG 


CMP 


#$10 




01425A 


1F84 


27 


05 


1F8B 




BEQ 


GETRTS 




01426A 


1F86 


Al 


11 


A 




CMP 


#$11 


IS ENTER? 


01427A 


1F88 


26 


E2 


1F6C 




BNE 


GETALP 


NO TRY AGAIN 


01428A 


1F8A 


99 








SEC 




YES SET FLAG 


01429A 


1F8B 


81 






GETRTS 


RTS 






01430 










* 
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01432 










* 






01433 










**************************************** 


01434 










* 




* 


01435 










* 


PRINT 


ONE BYTE INTO PAIR * 


01436 










* 


OF DISPLAY DIGITS * 


01437 










* 




* 


01438 










* 


A REGISTER CONTAINS BYTE * 


01439 










* 




* 


01440 










* 


X REGISTER POINTS TO 1ST * 


01441 










* 


DIGIT 


OF PAIR * 


01442 










* 




* 


01443 










**************************************** 


01444 










* 






01445A 


1F8C 


AE 


04 


A 


PRTDAT 


LDX 


#4 PRINT IN LAST TWO 


01446A 


1F8E 


BF 


50 


A 


PRTBYT 


STX 


WORK1 


1447A 


1F90 


B7 


55 


A 




STA 


WORK4 


01448A 


1F92 


44 








LSRA 




01449A 


1F93 


44 








LSRA 




1450A 


1F94 


44 








LSRA 




01451A 


1F95 


44 








LSRA 




01452A 


1F96 


97 








TAX 




01453A 


1F97 


D6 


1E87 


A 




LDA 


CTABL , X 


01454A 


1F9A 


BE 


50 


A 




LDX 


WORK1 


01455A 


1F9C 


E7 


49 


A 




STA 


DTABL , X 


01456A 


1F9E 


B6 


55 


A 




LDA 


WORK 4 


01457A 


1FA0 


A4 


0F 


A 




AND 


#$0F 


01458A 


1FA2 


97 








TAX 




01459A 


1FA3 


D6 


1E87 


A 




LDA 


CTABL, X 


01460A 


1FA6 


BE 


50 


A 




LDX 


WORK1 


01461A 


1FA8 


E7 


4A 


A 




STA 


DTABL+1 , X 


01462A 


1FAA 


CD 


1DFD 


A 




JSR 


DISTAB 


01463A 


1FAD 


B6 


55 


A 




LDA 


WORK 4 


01464A 


1FAF 


81 








RTS 




01465 










* 






01466 










**************************************** 


01467 










* 




* 


01468 










* 


PRINT 


ADDRESS ADDRH , ADDRL * 


01469 










* 




* 


01470 










* 


X REGISTER DESTROYED * 


01471 










* 




* 


01472 










**************************************** 


01473 










* 






01474A 


1FB0 


B7 


56 


A 


PRTADR 


STA 


WORK 5 


01475A 


1FB2 


BF 


54 


A 




STX 


WORK 3 


01476A 


1FB4 


B6 


52 


A 




LDA 


ADDRH 


01477A 


1FB6 


5F 








CLRX 




01478A 


1FB7 


AD 


D5 


1F8E 




BSR 


PRTBYT 


01479A 


1FB9 


B6 


53 


A 




LDA 


ADDRL 


01480A 


1FBB 


AE 


02 


A 




LDX 


#2 


01481A 


1FBD 


AD 


CF 


1F8E 




BSR 


PRTBYT 


01482A 


1FBF 


B6 


56 


A 




LDA 


WORK5 


01483A 


1FC1 


BE 


54 


A 




LDX 


WORK 3 


01484A 


1FC3 


81 








RTS 




01485 










* 







41 



